啊,本智障终于有机会输出有价值的答案了。最近我遇到了和题主类似的问题,即需要将一批.csv文件转换为.xlsx文件。但本智障一开始用的是最简单的办法,即将一个个.csv文件打开后再另存为.xlsx文件,但随着文件数的增多,实在是受不了这种重复操作了,于是今天上网看看能否利用编程之类的方法解决该问题,下面开始正文。
本智障找到的第一个比较成功的方法如下,链接:https://jingyan.baidu.com/article/6b97984deabfbc1ca2b0bfee.htmljingyan.baidu.com
使用的是Excel的宏功能,使用前需要把.csv文件先整理到一个文件夹中,宏中的代码如下:
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