Excel：將所有工作表保存或導出為單獨的CSV或文本文件（2種簡單方法）

在數據分析和商業報告中，使用包含多個工作表的Excel工作簿是很常見的。通常，您需要將每個工作表單獨導出為CSV（逗號分隔值）或文本文件，以便進行數據共享、與其他系統集成或存檔。雖然Excel沒有提供內建的“導出所有工作表”功能，但有幾種高效的方法可以完成此任務。

使用VBA代碼將所有工作表保存或導出為CSV或文本文件
使用Kutools for Excel將所有/特定工作表保存或導出為CSV或文本文件

使用VBA代碼將所有工作表保存或導出為CSV或文本文件

使用以下VBA代碼，您可以將工作簿中的所有工作表保存為單獨的CSV或文本文件。請按照以下步驟操作。

將所有工作表導出或轉換為單獨的CSV文件

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic 應用程序窗口。

2. 在 Microsoft Visual Basic 應用程序窗口中，點擊 插入 > 模塊。然後複製並將以下代碼粘貼到模塊窗口中。

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. 按下 F5 鍵運行代碼。您會看到所有導出的CSV文件都位於文檔文件夾中。每個工作表都被保存為一個單獨的.csv文件，文件名與工作表名相同。請參見截圖：

將所有工作表導出或轉換為單獨的文本文件

以下代碼可以幫助您將工作簿中的所有工作表導出或轉換為單獨的文本文件。

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

導出的文本文件也位於文檔文件夾中。請參見截圖：

使用Kutools for Excel將所有/特定工作表保存或導出為CSV或文本文件

Kutools for Excel 提供了一個強大且用戶友好的功能，只需幾次點擊即可快速將所有或選定的工作表導出為單獨的CSV或文本文件。

1. 點擊 Kutools Plus > 工作簿 > 分割工作簿。請參見截圖：

2. 在 分割工作簿對話框中：

• 1). 如果要將所有工作表轉換為CSV或文本文件，只需在工作表名稱框中保持所有工作表名稱被勾選；如果只想轉換多個工作表，則保留選擇它們並取消勾選不想轉換的其他工作表。
• 2). 在選項部分，勾選指定保存格式框，然後從下拉列表中選擇 Unicode 文本(*.txt) 或 CSV (Macintosh)(*.csv)。
• 3). 點擊分割按鈕。

3. 在瀏覽文件夾對話框中，指定一個文件夾來保存導出的文件，然後點擊確定按鈕。

現在，所有工作表或指定的工作表都已轉換為單獨的CSV或文本文件，並位於您上面指定的文件夾中。

演示：使用Kutools for Excel保存、導出或轉換多個/所有工作表為CSV或文本文件