如何在 Excel 中一次性将多个工作簿或工作表批量转换为 PDF 文件？

当您需要共享数据并防止他人修改时，将 Excel 文件转换为 PDF 是一项常见操作。虽然 Excel 的“另存为”功能可将单个工作簿转换为 PDF，但处理多个文件时却十分耗时。本指南将为您介绍多种高效方法（包括 VBA 代码和 Kutools for Excel），助您一键批量将多个工作簿或工作表快速转换为 PDF 文件。

• 使用“另存为”功能逐个将多个工作簿转换为 Pdf 文件
• 使用 VBA 代码一次性将多个工作簿转换为 Pdf 文件
• 使用强大功能将多个工作簿转换为 Pdf 文件
• 使用 VBA 代码将工作簿中的多个工作表转换为独立的 Pdf 文件
• 使用便捷功能将工作簿中的多个工作表转换为独立的 Pdf 文件

使用“另存为”功能逐个将多个工作簿转换为 Pdf 文件

通常，Excel 中的“另存为”功能可帮助您将整个工作簿保存为 Pdf 文件，请按以下步骤操作：

1. 打开需要转换为 PDF 格式的工作簿。

2. 单击文件> 另存为，在弹出的另存为对话框中，指定用于保存生成文件的文件夹，然后在 PDF 下拉列表中选择指定保存格式，再单击选项按钮，参见截图：

3. 然后，在弹出的选项对话框中，勾选整个工作簿选项，参见截图：

4. 然后单击确定> 保存，即可将整个工作簿保存为 PDF 文件。

使用 VBA 代码一次性将多个工作簿转换为 Pdf 文件

如果有数百个 Excel 文件需要转换，上述方法会非常繁琐。接下来，我将为您介绍一段 VBA 代码，可一次性将多个工作簿批量转换为 PDF 文件，请按以下步骤操作：

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

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

VBA 代码：一次性将多个工作簿转换为 Pdf 文件

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. 按 F5 键运行此代码，将弹出一个窗口，请选择包含要转换工作簿的文件夹，参见截图：

4. 单击确定后，将弹出另一个窗口，请选择要输出新 PDF 文件的文件夹路径，参见截图：

5. 转换完成后，单击确定，即可前往指定文件夹查看转换结果，参见截图：

使用强大功能将多个工作簿转换为 Pdf 文件

如果您已安装 Kutools for Excel，即可使用其批量转换工具，一键将多个工作簿快速转换为 PDF 文件！

1. 单击 KUTOOLS PLUS > 工作簿 > 批量转换，参见截图：

2. 将弹出提示框，提醒您关闭待转换的工作簿。

3. 单击确定，然后在弹出的文件格式转换器对话框中指定以下选项：

• 在转换类型下拉列表中，选择 Excel 到 PDF；
• 单击添加按钮，即可选择要转换的 Excel 文件。您可以根据需要从计算机或 OneDrive 中选择工作簿。

4. 在添加要转换的工作簿后，仍在批量转换对话框中，请点击对话框底部的按钮，选择输出转换后文件的路径，并指定所需的操作，参见截图：

5. 然后单击确定开始转换。所有指定的 Excel 文件转换为 PDF 后，即可前往指定文件夹查看结果。如下图所示：

使用 VBA 代码将工作簿中的多个工作表转换为独立的 Pdf 文件

在某些情况下，您可能希望将工作簿中的每个工作表分别导出为独立的 PDF 文件。若您的工作簿包含大量工作表，以下 VBA 代码可助您一键将每个工作表同时保存为单独的 PDF 文件。

1. 打开要转换的工作簿，然后按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

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

VBA 代码：将工作簿中的多个工作表转换为独立的 Pdf 文件

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 按 F5 键运行此代码后，将弹出一个窗口；请选择文件路径以保存已转换的 PDF 文件。见截图：

4. 单击确定按钮后，当前工作簿中的所有工作表将被转换为独立的 PDF 文件：

使用便捷功能将工作簿中的多个工作表转换为独立的 Pdf 文件

Kutools for Excel 还支持一项实用功能——分割工作簿工具，通过此功能，您可以根据需要将工作簿中的多个工作表分别保存为 Excel 文件、文本文档、CSV 文件和 PDF 文件。

1. 打开需将每个工作表另存为独立 PDF 文件的工作簿，然后点击 Kutools Plus > 工作簿 > 分割工作簿，见截图：

2. 在分割工作簿对话框中，勾选要保存的工作表，从指定保存格式下拉列表中选择 PDF (*.pdf)格式，再单击拆分按钮，然后在选择文件夹窗口中指定用于存放转换后文件的文件夹，见截图：

3. 随后，当前工作簿中所有选中的工作表均已分别保存为 PDF 文件，见截图：

更多相关文章：

最佳办公效率工具

🤖	KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
	热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
	高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
	高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
	列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
	特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
	精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多

在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Kutools for Excel 更多详情……免费下载……

---

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

• 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
• 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
• 将您的工作效率提升 50%，每天减少数百次鼠标点击！

Office Tab 更多详情……免费下载……

---

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

• 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
• 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
• 协同效果更佳— 在多个 Office 应用中实现高效协同
• 30 天全功能试用— 无需注册，无需信用卡
• 超值之选— 比单独购买插件更省钱

Kutools for Office 更多详情……免费下载……