如何在 Excel 中将每个工作表保存或导出为 CSV/PDF 文件？

如您所知，Microsoft Excel 可以将当前工作表保存为单独的 .csv 文件或 PDF 文件。因此，您可以手动逐个将每个工作表保存或导出为 .csv 文件或 PDF 文件。

1. 切换到要保存或导出为单独 .csv 文件的工作表，然后单击 文件（或 Office 按钮）> 另存为。

2. 在弹出的对话框中，指定要保存 .csv 文件的目标目录，点击 保存类型 框并从下拉列表中选择 CSV（逗号分隔）(*.csv) 或 PDF (*.pdf)，然后点击 保存 按钮。

3. 将会连续出现两个警告对话框，请依次点击 确定 > 是。

注意： 如果将活动工作表保存为 PDF 文件，则这些对话框不会弹出，直接进入下一步即可。

4. 重复上述步骤 1-3，逐个将其他工作表保存为单独的 .csv 文件。

一些 Excel 用户可能出于某些原因拒绝使用 VBA 代码。不用担心！第三种方法也可以通过 Kutools for Excel 的 分割工作簿 工具轻松批量保存或导出每个工作表为 .csv 文件或 PDF 文件。

1. 单击 Kutools Plus > 工作簿 > 分割工作簿。

2. 在打开的 分割工作簿 对话框中，

(1) 保持选中所有工作表。如果没有，可以勾选 工作表名 前的复选框以选择所有工作表；

(2) 勾选 指定保存格式 选项；

(3) 单击 指定保存格式 选项下方的框，并从下拉列表中选择 CSV (Macintosh)(*.csv) 或 PDF (*.pdf)。

(4) 单击 分割 按钮。

注意：如果您的工作簿中存在隐藏和空白工作表，勾选 忽略隐藏工作表 和 忽略空白工作表 复选框将在导出时忽略所有空白或隐藏的工作表。

Kutools for Excel - 通过超过300个必备工具，让Excel功能大幅提升。永久免费享受AI功能！立即获取

3. 在打开的 浏览文件夹 对话框中，指定要保存所有 .csv 文件或 PDF 文件的目标目录，然后单击 确定 按钮。

现在，您将看到每个工作表都被导出并保存为指定文件夹中的单独 .csv 文件。

如果您有许多工作表需要保存或导出为 .csv 文件，第一种方法将非常耗时且繁琐。这个 VBA 可以简化操作，使保存或导出每个工作表为 .csv 文件变得容易。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，然后将以下 VBA 代码粘贴到新模块窗口中。

VBA：将每个工作表保存为单独的 CSV 文件

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub

4. 在打开的 浏览 对话框中，指定要保存所有 .csv 文件的目标目录，然后单击 确定 按钮。

然后，您将看到每个工作表都保存/导出为指定目标目录中的单独 .csv 文件。