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

Tips：如果您需要转换多个工作簿，请按照上述步骤将工作簿一个一个地保存到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

Tips:申请这个 格式转换器 功能，首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。

：在以上对话框中：

如果子文件夹中的工作簿也需要转换，请检查 添加文件夹时包括子文件夹 复选框 如果要在转换后删除原始文件，请检查 转换后删除源文件 框; 如果要保留原始文件的修改日期，请检查 保留原始文件的修改日期 框; 可以通过检查以下内容来保留文件的目录结构： 转换后保留文件的目录结构 框;

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

Tips:申请这个 拆分工作簿 功能，首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。

在Excel中将多个Xls文件转换为Xlsx文件 要将旧的xls Excel文件转换为新的xlsx文件，可以在Excel中应用“另存为”功能，但是，如果需要转换多个xls文件，如何快速而轻松地处理此任务？

将所有工作表另存为值 如果您有一个包含多个公式的工作簿，现在，您需要将此文件分发给其他用户，您不想显示公式，而只显示值。 通常，通过仅将数据复制和粘贴为值，我们可以快速将工作表另存为值。 但是，如何仅将所有工作表另存为值而又不一一复制和粘贴呢？

命令按钮将活动工作表另存为PDF文件 在Microsoft Excel中工作时，您可能会遇到将活动工作表另存为PDF文件的问题。 在本文中，您可以学习如何通过命令按钮使用VBA代码将活动工作表另存为PDF文件。 并且，如果您还希望将活动工作簿中的范围或每个工作表另存为单独的PDF文件，则本文也可以为您提供帮助。

将一个大表拆分为多个小表 现在，如果您有一个包含多列和成百上千行数据的大型工作表，则希望根据列值或行数将该大型表拆分为多个小型表，以获得以下结果。 您如何在Excel中处理此任务？

拆分工作簿以分隔Excel文件 您可能需要将一个大型工作簿拆分为单独的Excel文件，然后将工作簿的每个工作表另存为单独的Excel文件。 例如，您可以将工作簿拆分为多个单独的Excel文件，然后将每个文件交付给不同的人来处理。 这样，您可以使某些人处理特定数据，并确保您的数据安全。 本文将介绍根据每个工作表将大型工作簿拆分为单独的Excel文件的方法。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！