用vba批量转换ecel工作簿为pdfVIP专享

Excel 2024 和 Excel 2024 可以将 Excel 工作簿另存为 PDF 格式文件，但手工的方法每次只能转换一个工作簿，要转换多个工作簿就显得有些繁琐。假如没有批量转换软件，在 Excel 2024 和 Excel 2024 中，利用 VBA 代码也可以轻松实现将 Excel 工作簿批量转换为 PDF，方法如下： 1.按 Alt+F11，打开 VBA 编辑器。 2.在右侧代码窗口中输入下列代码：Sub BatchConvertWorkBookToPDF() = False = False Dim fDialog As FileDialog Set fDialog = (msoFileDialogFilePicker) Dim vrtSelectedItem As Variant Dim wkBook As Workbook Dim showFolder As Boolean showFolder = False With fDialog . "Excel 文件", "*.xls; *.xlsx; *.xlsm", 1 If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems '假如选择了本工作簿则跳过 If InStrRev(vrtSelectedItem, = 0 Then On Error Resume Next Set wkBook = ReadOnly:=True, Password:="") '跳过设置打开密码的工作簿 If Not wkBook Is Nothing Then '跳过隐藏的工作簿 If Windows.Visible = True Then showFolder = True '转换开始 Type:=xlTypePDF, Filename:= _ Left(vrtSelectedItem, InStrRev(vrtSelectedItem, ".") - 1) & ".pdf" _ , Quality:=xlQualityMinimum, IncludeDocProperties:=False, IgnorePrintAreas _ :=True, OpenAfterPublish:=False , savechanges = False Else , savechanges = False End If End If End If Next vrtSelectedItem If showFolder Then Call Shell(" " & Left(1), _ InStrRev(1), "\")), vbMaximizedFocus) End If End With Set fDialog = Nothing = True = TrueEnd Sub 3.将需要转换的 Excel 工作簿复制到某个文件夹中。 4.关闭 VBA 编辑器返回 Excel 界面。按 Alt+F8 打开“宏”对话框，执行“BatchConvertWorkBookToPDF”宏。 5.在弹出的“浏览”对话框中选择包含要转换工作簿的文件夹，选择所有要转换的工作簿，单击“打开”按钮即可开始转换。 说明： 1.已转换的 PDF 文件位于原工作簿所在的文件夹中，转换完成后会自动打开该文件夹。 2.不能转换设置了打开密码的工作簿、隐藏的工作簿、隐藏的工作表和包含上述 VBA 代码的工作簿。 3.转换的文件类型为“*.xls”、“*.xlsx”、“*.xlsm”。假如要转换其他类型的工作簿，可在代码中添加文件类型。 4.假如要转换的工作簿具有相同的名称和不同的后缀，如“”和“”，则先转换的 PDF 文件会被覆盖。 必需安装用于 2024 Microsoft Office system 的“另存为 PDF 或 XPS”加载项