excel批量转pdf 宏

您可以按照以下步骤使用 VBA 宏将 Excel 文件批量转换为 PDF 文件：

Sub ConvertToPDF()
    Dim folderPath As String
    Dim filename As String
    Dim sheet As Worksheet
    folderPath = Application.ActiveWorkbook.Path
    For Each sheet In ThisWorkbook.Sheets
        filename = folderPath & "\" & sheet.Name & ".pdf"
        sheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filename
    Next sheet
End Sub
将以上代码中的“ConvertToPDF”更改为您想要的宏名称。
按下“F5”键或单击“运行”按钮来运行宏。
弹出对话框要求您选择要保存 PDF 文件的文件夹。选择一个文件夹并单击“确定”。
VBA 将循环遍历 Excel 工作簿中的所有工作表并将其导出为单独的 PDF 文件，保存在所选文件夹中。
请注意，如果您的 Excel 文件有多个工作簿，您需要在每个工作簿中运行此宏。