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或文本文件