如何在Excel中一次将多个工作簿或工作表转换为PDF文件? | 您所在的位置:网站首页 › excel表格工作表合并在一起怎么弄的 › 如何在Excel中一次将多个工作簿或工作表转换为PDF文件? |
如何在Excel中一次将多个工作簿或工作表转换为PDF文件?
作者:晓阳
最后修改时间:2020-12-24
有时,您需要将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文件格式。 Tips:如果您需要转换多个工作簿,请按照上述步骤将工作簿一个一个地保存到PDF文件。 一次使用VBA代码将多个工作簿转换为PDF文件如果需要转换数百个Excel文件,则上述方法将很麻烦,在这里,我将讨论将多个工作簿一次转换为PDF文件的VBA代码,请执行以下步骤: 1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。 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 Sub3。 然后按 F5 键运行此代码,将显示一个窗口,请选择一个包含您要转换的工作簿的文件夹,请参见屏幕截图: 4。 然后,点击 OK,会弹出另一个窗口,请选择要输出新PDF文件的文件夹路径,请参见屏幕截图: 5。 然后,点击 OK,完成转换后,您可以转到指定的文件夹预览转换结果,请参见屏幕截图: ![]() ![]() ![]() 如果你有 Kutools for Excel,其 格式转换器 实用程序,您可以一次将多个工作簿快速转换为PDF文件。 Tips:申请这个 格式转换器 功能,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。安装后 Kutools for Excel,请这样做: 1。 点击 Kutools 加 > 工作簿 > 格式转换器,请参见屏幕截图: 2。 弹出一个提示框,提醒您必须关闭要转换的工作簿。 3。 点击 OK,然后,在 FileFormat转换器 对话框中,指定以下选项: 在下面 转换类型 下拉列表,选择 Excel工作簿转换为PDF; 然后点击 地址 按钮以添加要转换的Excel文件,可以根据需要从计算机磁盘或OneDrive中添加工作簿;4。 插入要转换的工作簿后,仍在 文件格式转换器 对话框,请单击 5。 然后点击 OK 要开始转换,当所有指定的Excel文件都转换为PDF文件时,您可以转到指定的文件夹以预览转换的结果,请参见屏幕截图: ![]() ![]() ![]() 在某些情况下,您可能希望将工作簿中的每个工作表转换为单独的PDF文件,如果工作簿中有很多工作表,则下面的VBA代码可以帮助您一次将每个工作表另存为PDF文件。 1。 打开一个要转换的工作簿,然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。 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 Sub3。 然后,按 F5 键以运行此代码,并弹出一个窗口,请选择文件夹路径以找到转换后的PDF文件,请参见屏幕截图: 4。 然后,点击 OK 按钮,当前工作簿中的所有工作表已分别转换为PDF文件,请参见屏幕截图: Kutools for Excel 还支持一个有用的功能- 拆分工作簿,使用此功能,您可以在工作簿中保存多个工作表,以根据需要将Excel文件,Txt文件,CSV文件和PDF文件分开。 Tips:申请这个 拆分工作簿 功能,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。安装后 Kutools for Excel,请这样做: 1。 打开您要将每个工作表另存为PDF文件的工作簿,然后单击“确定”。 酷图加 > 工作簿 > 拆分工作簿,请参见屏幕截图: 2。 在 拆分工作簿 对话框中,选中要保存的工作表,然后选择 PDF(* .pdf) 来自 保存类型 下拉列表,然后单击 分裂 按钮,在 选择“文件夹” 窗口中,指定用于放置转换后文件的文件夹,请参见屏幕截图: ![]() ![]() ![]() 3。 然后,当前工作簿中所有选定的工作表已单独保存为PDF文件,请参见屏幕截图: 使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... ![]() |
CopyRight 2018-2019 实验室设备网 版权所有 |