最近在使用遇到一个问题需要把csv格式的文件转成xls，随便新建一个excel，然后打开，选择“开发工具”，找到下图“宏”，如果跟下图一样的话就需要先启用宏，启用之后可以直接把下面的代码直接复制到代码区，修改一个路径就好。

以下代码试讲文件名为1.csv的文件，转化为2.xls

'ChDir "C:\"
Dim sDir As String
Dim curdir As String
'要转换的文件路径
curdir = "C:\Users\GHZ\Desktop\数据文件\一些作业数据样例\1"
'转换后存文件路径
targetdir = "C:\Users\GHZ\Desktop\数据文件\转换后\2"

'curdir = ThisWorkbook.Path

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:=targetdir & "\" & temp & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
sDir = Dir
Wend

 ok,今天的分享就到这里了，如果有有疑问欢迎留言~