ExcelVBA批量转换为PDF
这段代码将遍历工作簿中的所有工作表,并将每个工作表保存为单独的PDF文件。请确保在运行代码之前备份你的工作簿,以防万一。当你需要将工作表批量转换为PDF文件时,你可以使用以下示例代码作为参考。
Sub ConvertSheetsToPDF()
Dim ws As Worksheet
Dim wb As Workbook
Dim savePath As String
' 设置保存PDF文件的路径
savePath = "C:\Users\Administrator\Desktop\PDFs\"
' 循环遍历所有工作簿
For Each wb In Workbooks
' 循环遍历工作簿中的所有工作表
For Each ws In wb.Worksheets
' 生成PDF文件名(使用工作表名)
pdfFileName = savePath & ws.Name & ".pdf"
' 将工作表保存为PDF文件
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next ws
Next wb
End Sub