如何在Excel中一次将多个工作簿或工作表转换为PDF文件？-英雄云拓展知识分享

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

有时，您需要将Excel文件转换为PDF文件，以便其他人没法修改它们。 在Excel中，我们可使用“另存为”功能将Excel文件另存为PDF文件。 但是，如何在Excel中同时将多个工作簿转换为PDF文件呢？

• 使用另存为功能将多个工作簿转换为PDF文件
• 一次使用VBA代码将多个工作簿转换为PDF文件
• 使用强盛的功能将多个工作簿转换为PDF文件
• 使用VBA代码将工作簿中的多个工作表转换为单独的PDF文件
• 使用方便的功能将工作簿中的多个工作表转换为单独的PDF文件

使用另存为功能将多个工作簿转换为PDF文件

通常，Excel中的“另存为”功能可以帮助您将全部工作簿保存为PDF文件，方法以下：

1。 启动您要转换为PDF格式的工作簿。

2。 点击 文件 > 另存为，并在中 另存为 对话框中，请指定用于保存新文件的文件夹，然后选择 PDF 来自 保存类型 下拉列表，然后单击 选项 按钮，请参见屏幕截图：

3。 然后，在弹出 选项 对话框，检查 全部工作簿，请参见屏幕截图：

4。 然后点击 OK > 节省，全部工作簿已保存为PDF文件格式。

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

如果需要转换数百个Excel文件，则上述方法将很麻烦，在这里，我将讨论将多个工作簿一次转换为PDF文件的VBA代码，请履行以下步骤：

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

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

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

Sub ExcelSaveAsPDF()
'
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 <> ⑴ 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 <> ⑴ 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。 然后，点击 OK，会弹出另外一个窗口，请选择要输出新PDF文件的文件夹路径，请参见屏幕截图：

5。 然后，点击 OK，完成转换后，您可以转到指定的文件夹预览转换结果，请参见屏幕截图：

使用强盛的功能将多个工作簿转换为PDF文件

如果你有 Excel的tool，其 格式转换器 实用程序，您可以一次将多个工作簿快捷转换为PDF文件。

安装后 Excel的tool，请这样做：

1。 点击 tool 加 > 工作簿 > 格式转换器，请参见屏幕截图：

2。 弹出一个提示框，提示您必须关闭要转换的工作簿。

3。 点击 OK，然后，在 FileFormat转换器 对话框中，指定以下选项：

• 下 转换类型 下拉列表，选择 Excel工作簿转换为PDF;
• 然后点击 加入 按钮以添加要转换的Excel文件，可以针对需要从计算机磁盘或OneDrive中添加工作簿； 

4。 插入要转换的工作簿后，仍在 文件格式转换器 对话框，请单击 按钮选择一个文件夹路径以输出转换后的文件，然后在对话框底部指定所需的一些操作，请参见屏幕截图：

5。 然后点击 OK 要开始转换，当所有指定的Excel文件都转换为PDF文件时，您可以转到指定的文件夹以预览转换的结果，请参见屏幕截图：

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

通常，在某些情况下，您可能希望将工作簿中的每一个工作表转换为单独的PDF文件，如果工作簿中有很多工作表，则下面的VBA代码可以帮助您一次将每一个工作表另存为PDF文件。

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

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

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

Sub SplitEachWorksheet()
'
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 <> ⑴ 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。 然后，点击 OK 按钮，当前工作簿中的所有工作表已分别转换为PDF文件，请参见屏幕截图：

使用方便的功能将工作簿中的多个工作表转换为单独的PDF文件

Excel的tool 还支持一个有用的功能- 拆分工作簿，使用此功能，您可以在工作簿中保存多个工作表，以针对需要将Excel文件，Txt文件，CSV文件和PDF文件分开。

安装后 Excel的tool，请这样做：

1。 打开您想要将每一个工作表另存为PDF文件的工作簿，然后单击“肯定”。 酷图加 > 工作簿 > 拆分工作簿，请参见屏幕截图：

2。 在 拆分工作簿 对话框中，选中要保存的工作表，然后选择 PDF（* .pdf） 来自 保存类型 下拉列表，然后单击 分裂 按钮，在 选择“文件夹” 窗口中，指定用于放置转换后文件的文件夹，请参见屏幕截图：

3。 然后，当前工作簿中所有选定的工作表已单独保存为PDF文件，请参见屏幕截图：

更多相干文章：

选择英雄云的云表单=选择更智能的Excel

>>>>🚀🌟 点击注册 免费试用 更高级的-英雄云企业级云表单 🌟🚀 😃👉🌐>>>>

在现代企业管理中，数据的高效管理和处理至关重要。随着信息技术的不断发展，英雄云的云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段：多样性满足业务需求

英雄云的云表单中包括了各种基础字段，如单行文本、多行文本、数字输入框、单选框、复选框、下拉框、下拉复选框、日期时间、分割线等。这些字段的多样性使用户可以根据具体的业务需求，轻松进行文本、数据和时间信息的录入或修改。例如，您可以使用单行文本字段录入员工姓名、产品型号等，或者使用下拉框进行多选，根据不同情况选择更加方便的字段类型。

高级字段：提升工作效率

英雄云的云表单还提供了高级字段，如地址、图片、附件、手写签名、手机、子表、关联数据、关联查询以及流水号。这些高级字段在基础字段的基础上升级，可帮助用户完成一些琐碎的工作。例如，使用地址字段可以避免逐字打字，而流水号字段可以自动生成规律性的编号，非常适用于合同编号生成等场景。

部门成员字段：精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息，应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选和成员多选，可根据具体需求在通讯录中选择一个或多个成员。

聚合表：数据处理更智能

英雄云的聚合表功能用于对已存在的表单数据进行聚合计算，从而得到一张聚合表，后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景，如进销存管理、财务管理和门店零售管理等，帮助企业完成数据处理，提高工作效率。

表单权限设置：灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置，以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构，实时调整权限设置。

自定义打印模板：文档输出更便捷

英雄云的云表单支持自定义打印模板，可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑，将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式，简化了信息整理的过程。

综合来看，选择英雄云的云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率，精确管理数据，还是实现数据处理，英雄云的云表单都能满足您的多样化需求，助力您的业务发展。

如果您正在寻找一款强大的云表单工具，不妨考虑英雄云，它将为您带来更多的便捷和智能，助您事半功倍。

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。