导出当前工作表为PDF

Sub ExportToPDF()
    Dim savePath As String
    savePath = ThisWorkbook.Path & "\PDF\"
    If Dir(savePath, vbDirectory) = "" Then MkDir savePath
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=savePath & ActiveSheet.Name & "_" & Format(Now, "yyyymmdd") & ".pdf", _
        Quality:=xlQualityStandard
    MsgBox "PDF已保存到: " & savePath
End Sub

批量导出多个工作表为独立PDF

Sub BatchExportPDF()
    Dim ws As Worksheet
    Dim savePath As String
    savePath = ThisWorkbook.Path & "\PDF\"
    If Dir(savePath, vbDirectory) = "" Then MkDir savePath
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath & ws.Name & ".pdf", Quality:=xlQualityStandard
    Next
    Application.ScreenUpdating = True
    MsgBox "所有工作表已导出为PDF！"
End Sub