如何在Excel中保存，导出多个/所有工作表到单独的csv或文本文件？

如何在Excel中保存，导出多个/所有工作表到单独的csv或文本文件？

使用 Excel 时，您可以使用另存为功能将工作表手动保存为 csv 或文本文件。 但是，要将工作簿中的多个或所有工作表转换为单独的 csv 或文本文件，您该怎么做？ 在本文中，我们将向您展示将多个或所有工作表保存或转换为单独的 csv 或文本文件的方法。

使用VBA代码将所有工作表保存，导出或转换为csv或文本文件

将多张/所有工作表保存、导出或转换为 csv 或文本文件 Kutools for Excel 使用VBA代码将所有工作表保存，导出或转换为csv或文本文件

使用下面的VBA代码，您可以将工作簿中的所有工作表保存到单独的csv或文本文件中。 请执行以下操作。

将所有工作表导出或转换为CSV文件

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下代码复制并粘贴到 模块 窗口。

VBA代码：将所有图纸导出到单独的CSV文件

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文件都位于 文件 夹。 看截图：

将所有工作表导出或转换为文本文件

下面的代码可以帮助您将工作簿中的所有工作表导出或转换为单独的文本文件。

VBA代码：将所有工作表导出到单独的文本文件

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

导出的文本文件也位于 文件 夹。 看截图：

将多张/所有工作表保存、导出或转换为 csv 或文本文件 Kutools for Excel

Y您可以使用以下命令在Excel中快速将多个或所有工作表导出或转换为单独的csv文件，文本文件或xls文件格式。 拆分工作簿 实用程序 Kutools for Excel.

1。 点击 Kutools 加 > 工作簿 > 拆分工作簿。 看截图：

2.在 拆分工作簿 对话框：

1）。 如果要将所有工作表都转换为csv或文本文件，只需在 工作表名称 框; 如果您只想转换多个工作表，请继续检查它们，然后取消选中您不想转换的其他工作表。 2）。 在里面 附加选项 部分，检查 保存类型 框，然后选择 Unicode文本（* .txt） or CSV（Macintosh）（*。csv） 从下拉列表中选择。 3）。 点击 分裂 按钮。

3.在 浏览文件夹 对话框中，指定一个文件夹来保存导出的文件，然后单击 OK 按钮。

现在，所有工作表或指定的工作表都将转换为单独的csv或文本文件，并按照上面的指定在文件夹中定位。

将多张/所有工作表保存、导出或转换为 csv 或文本文件 Kutools for Excel