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

Posted 2023-05-09

快速批量将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的文件了。

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

excel 批量格式转换

脚本运行方式

在需要转换的csv或者xls同目录新建一个xls文件，alt+f11打开VBA project，然后将代码贴入，点击运行即可。

XLS批量转换为CSV

Sub xls2csv()
	Application.DisplayAlerts = False
	t = ActiveWorkbook.Name
	mypath = ActiveWorkbook.Path & "\"
	myfile = Dir(mypath & "*.xls")
	Do Until Len(myfile) = 0
		If myfile <> t Then
			Workbooks.Open Filename:=mypath & myfile
			ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".csv", FileFormat:=xlCSV
		End If
		If myfile <> t Then ActiveWorkbook.Close
		myfile = Dir
	Loop
	Application.DisplayAlerts = True
End Sub

CSV批量转XLS

Sub xls2csv()
	Application.DisplayAlerts = False
	t = ActiveWorkbook.Name
	mypath = ActiveWorkbook.Path & "\"
	myfile = Dir(mypath & "*.csv")
	Do Until Len(myfile) = 0
		If myfile <> t Then
			Workbooks.Open Filename:=mypath & myfile
			ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".xls", FileFormat:=xlExcel8
		End If
		If myfile <> t Then ActiveWorkbook.Close
		myfile = Dir
	Loop
	Application.DisplayAlerts = True
End Sub

　　

如有疑问，请留言。