如何在 Excel 中批量將多個 CSV 檔案轉換為 XLS(X) 檔案？

透過使用「另存為」功能，將 CSV 檔案轉換為 XLS 或 XLSX 檔案對您來說非常容易。然而，要從資料夾中逐一手動保存來將多個 CSV 檔案轉換為 XLS 或 XLSX 檔案則非常耗時。在此我介紹一種巨集代碼，可快速將資料夾中的所有 CSV 檔案批量轉換為 XLS(x) 檔案。

使用巨集代碼批量將 CSV 檔案轉換為 XLS(X) 檔案

使用巨集代碼批量將 CSV 檔案轉換為 XLS(X) 檔案

要將某資料夾中的多個 CSV 檔案轉換為 XLS(X) 檔案，您可以按照以下步驟操作：

1. 啟用一個新的工作簿，按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗，然後點擊 插入 > 模組。請參閱截圖：

注意：確保您要轉換的所有 CSV 檔案均已關閉。

2. 然後將以下巨集代碼粘貼到模組腳本中，並按 F5 鍵執行該代碼。

VBA：將 CSV 轉換為 XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. 在彈出的對話框中，選擇包含您想轉換的 CSV 檔案的指定資料夾。請參閱截圖：

4. 點擊確定，所選資料夾中的所有 CSV 檔案都已轉換為其中的 XLS 檔案。

提示：如果您想將 CSV 檔案轉換為 XLSX 檔案，可以使用以下 VBA 代碼。

VBA：將 CSV 檔案轉換為 XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

相關文章：

• 如何將 csv 檔案轉換為 xls 檔案或在 Excel 中導入/打開 csv？
• 如何將 Word 文件轉換為 Excel 工作表？