宏/VBA批量将文件夹下的csv文件转换成xlsx

最新推荐文章于 2024-01-21 23:36:23 发布

毛维

最新推荐文章于 2024-01-21 23:36:23 发布

阅读量1.4k

点赞数 3

分类专栏： excel 宏文章标签：其他经验分享

本文链接：https://blog.csdn.net/weixin_43046974/article/details/120876697

版权

excel 同时被 2 个专栏收录

7 篇文章 0 订阅

订阅专栏

宏

5 篇文章 0 订阅

订阅专栏


Sub change_CSV_to_XLSX()
	ChDir "C:\Users\Administrator\Desktop\新建文件夹"
	Dim sDir As String
	Dim result_dir As String
	result_dir = "C:\Users\Administrator\Desktop\新建文件夹"
	sDir = Dir(result_dir & "\*.csv")
	While Len(sDir)
	Workbooks.Open Filename:=result_dir & "\" & sDir
	Dim temp As String
	temp = Left(sDir, Len(sDir) - 4)
	ActiveWorkbook.SaveAs Filename:=result_dir & "\" & temp & ".xlsx", _
	FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
	ReadOnlyRecommended:=False, CreateBackup:=False
	ActiveWorkbook.Close
	sDir = Dir
	Wend
End Sub