關於使用宏將csv批量轉換成xls的分享

最近在使用遇到一個問題須要把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,今天的分享就到這裏了，若是有有疑問歡迎留言~