csv文件批量轉換爲xlsx

1、啓用宏功能

2、新建Excel文檔，設置宏

3、運行

-------------------------------------------------------------------------------------------------------------------------

1、文件》選項》信任中心》信任中心設置》宏設置》啓用所有宏》確定

2、新建Excel文檔》選中視圖》錄製宏》確定》查看宏》編輯》複製下方全部代碼》點擊執行 

代碼：說明（其中fPath是原始csv文件的地址，sPath是轉出的xlsx文件地址，最後的\不要掉了）

Sub CAVToXLSX()
    Dim fDir As String
    Dim wB As Workbook
    Dim wS As Worksheet
    Dim fPath As String
    Dim sPath As String
    fPath = "原始csv文件的地址\"    
    sPath = "轉出的xlsx文件地址\"
    fDir = Dir(fPath)
    Do While (fDir <> "")
        If Right(fDir, 4) = ".csv" Or Right(fDir, 5) = ".csv" Then
            On Error Resume Next
            Set wB = Workbooks.Open(fPath & fDir)
            'MsgBox (wB.Name)
            For Each wS In wB.Sheets
                wS.SaveAs sPath & wB.Name & ".xlsx" _
                , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            Next wS
            wB.Close False
            Set wB = Nothing
        End If
        fDir = Dir
        On Error GoTo 0
    Loop
End Sub

3、運行