批量将一个文件夹里的.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

然后按照实际情况改一下文件夹地址（绿色的代码），直接运行闪一闪就好啦！

---

1. https://www.zhihu.com/question/39234324/answer/532945886 ↩︎