Question

如何批量将csv文件转换成xls文件

Answer 1

快速批量将csv转换成excel文件步骤如下：

1、首先随便打开一个表格文件。

2、在开发工具标签页下有个宏功能。

3、打开宏窗口后，随便起个名字，新建。

4、箭头指的部分准备粘贴代码，代码粘贴下面的，其中目录部分换成你的csv文件所在的目录。

5、书写程序：

ChDir "C:\Users\Administrator\Desktop\新建文件夹"    

Dim sDir As String    

Dim curdir As String    

curdir = "C:\Users\Administrator\Desktop\新建文件夹"    

sDir = Dir(curdir & "\*.csv")    

While Len(sDir)        

Workbooks.Open Filename:=curdir & "\" & sDir        

Dim temp As String        

temp = Left(sDir, Len(sDir) - 4)        

ActiveWorkbook.SaveAs Filename:=curdir & "\" & temp & ".xls", _            

FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _            

ReadOnlyRecommended:=False, CreateBackup:=False        

ActiveWorkbook.Close       

sDir = Dir    

Wend

6、点击运行按钮运行。

7、在页面中等待一会儿。

8、现在所有csv文件都有一分转化为xls的文件了。

Answer 2

右击“我的电脑”选择“资源管理器”，然后浏览到你那些“.csv”文件那里，看到所有文件后按Ctrl+A（全选），然后再按F2（重命名），把扩展名改成“.xls”，在弹出窗口点确定即可。如果不想改所有文件名，可以，一个一个把扩展名改成“.xls”即可。如果你懂DOS命令，可以在DOS下面把“*.csv”改成“.xls”。要是自己不懂，可以复制一份到桌面做实验。