如何在 Excel 中批次將多個 Excel 檔案轉換為 CSV 格式？

作者Sun修改日期2024-12-02

使用「另存新檔」功能可將 Excel 文件轉換為 CSV 格式，但若需手動逐一處理多個檔案，則相當耗時。若您希望將多個 Excel 文件批次轉換為獨立的 CSV 檔案，本指南提供兩種高效方法：

使用 VBA 將資料夾中的 Excel 文件批次轉換為 CSV 檔案

使用 Kutools for Excel 將活頁簿中的工作表轉換為獨立的 CSV 檔案

使用 VBA 將資料夾中的 Excel 文件批次轉換為 CSV 檔案

Excel 本身並未內建可快速執行此操作的功能，僅能透過 VBA 實現。

1. 啟動 Excel，並按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點擊插入＞模組，即可建立新模組。

3. 複製下方程式碼，並貼上至新的模組視窗中。

VBA：批次將 Excel 文件轉換為 CSV

Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS  As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjFD.AllowMultiSelect = False
    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
    If xObjFD.Show <> -1 Then Exit Sub
    xStrEFPath = xObjFD.SelectedItems(1) & "\"
    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjSFD.AllowMultiSelect = False
    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
    If xObjSFD.Show <> -1 Then Exit Sub
    xStrSPath = xObjSFD.SelectedItems(1) & "\"
    xStrEFFile = Dir(xStrEFPath & "*.xls*")
    Do While xStrEFFile <> ""
       xS = xStrEFPath & xStrEFFile
        Set xObjWB = Application.Workbooks.Open(xS)
        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
        xObjWB.Close savechanges:=False
        xStrEFFile = Dir
  Loop
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

4. 按下 F5 鍵後，在第一個跳出的對話方塊中選取包含欲轉換為 CSV 檔案之 Excel 文件的資料夾。
選取包含要轉換之 Excel 檔案的資料夾之第一個對話框截圖

5. 在第二個跳出的對話方塊中，選取用來儲存 CSV 檔案的資料夾，然後點擊確定。
選取用於儲存已轉換 CSV 檔案之資料夾的第二個對話框截圖

6. 點擊確定後，資料夾中的 Excel 檔案即會轉換為 CSV 格式，並儲存至另一個資料夾。
顯示在所選資料夾中將 Excel 檔案轉換為 CSV 檔案的截圖

使用 Kutools for Excel 將活頁簿中的工作表轉換為獨立的 CSV 檔案

眾所周知，我們只能透過 Excel 的「另存新檔」功能將整個活頁簿轉換為單一 CSV 檔案。若您需要將個別工作表轉換為 CSV 檔案，不妨善用分割工作簿工具（屬於）Kutools for Excel 套件），輕鬆達成目標！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 開啟欲將工作表轉換為獨立 CSV 檔案的活頁簿，點擊 KUTOOLS PLUS > 活頁簿 > 分割工作簿。
顯示 Excel 中 Kutools 索引標籤內「分割活頁簿」功能的截圖

2. 在分割工作簿對話方塊中，勾選欲拆分的工作表名稱（預設已全選），勾選另存新檔類型，並從下拉列表中選擇 CSV (*.csv)。
「分割活頁簿」對話框截圖，其中已選取 CSV 格式

3. 點擊拆分，即可開啟瀏覽資料夾對話方塊，選擇或建立資料夾以儲存 CSV 檔案。
「瀏覽資料夾」對話框截圖，用於選取 CSV 檔案的儲存位置

4. 點擊確定，活頁簿就會立即拆分為獨立的 CSV 檔案！
顯示成功將活頁簿工作表分割為獨立 CSV 檔案的截圖

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

示範：使用分割工作簿搭配 Kutools for EXCEL

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

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