關於使用巨集將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,今天的分享就到這裡了，如果有有疑問歡迎留言~