批量将一个文件夹里的.csv文件转换为.xlsx文件
1.打开excel的宏
WPS的似乎是在“开发工具”里 随便起个名字就好啦
2.粘贴入代码片
在 空白的地方粘贴进去代码片 。
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 & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
sDir = Dir
Wend
然后按照实际情况改一下文件夹地址(绿色的代码),直接运行闪一闪就好啦!
|