如何在 Excel 中批次將多個 CSV 檔案轉換為 XLS（或 XLSX）格式？

作者孫修改日期2024-10-08

透過「另存新檔」功能，將單一 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 檔案的指定資料夾。請參閱截圖：
用於選取包含您要轉換之 CSV 檔案的指定資料夾的對話框

4. 點選確定後，所選資料夾中的所有 CSV 檔案即會轉換為 XLS 檔案，並儲存在該資料夾中。
所選資料夾中的所有 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

將儲存格範圍轉換或匯出為獨立的 XLS、Word、PDF 等格式

一般而言，Excel 並未提供快速選項，可直接將選取區域另存或匯出為 CSV、Excel 等檔案格式。若要達成此目的，您必須使用 VBA 巨集，或手動將該範圍複製到新工作簿後再儲存。Kutools for Excel 透過其導出區域至文件功能簡化此流程，讓您只需幾次點擊，即可輕鬆快速完成這些操作！

匯出範圍至檔案介面

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多