关于使用宏将csv批量转换成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