个人技术分享

1. 首先，打开Excel，然后按下 Alt + F11 打开VBA编辑器。
2. 在VBA编辑器中，点击 插入 -> 模块，创建一个新的模块。
3. 在新模块中，复制并粘贴以下VBA代码：

Sub ExportEachSheetToPDF()
    Dim ws As Worksheet
    Dim pdfFolder As String
    Dim pdfName As String
    
    ' 设置PDF保存的文件夹路径
    pdfFolder = "C:\Your\Desired\Folder\"
    
    Application.ScreenUpdating = False ' 关闭屏幕更新以加快宏的执行速度
    Application.DisplayAlerts = False ' 禁用弹窗提示
    
    For Each ws In ThisWorkbook.Worksheets
        pdfName = Replace(ws.Name, " ", "_") ' 替换工作表名称中的空格
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFolder & pdfName & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
           OpenAfterPublish:=False
    Next ws
    
    Application.ScreenUpdating = True ' 恢复屏幕更新
    Application.DisplayAlerts = True ' 恢复弹窗提示
    
    MsgBox "所有工作表已导出为PDF文件。"
End Sub

1. 修改 pdfFolder变量的值，设置你希望保存PDF文件的路径。
2. 运行这个宏。你可以在VBA编辑器中按 F5 键，或者在Excel中通过快捷键 Alt + F8，然后选择 ConvertToPDF 并运行。

请注意，这个脚本会将每个工作表导出为一个单独的PDF文件，并且文件名将基于工作表的名称。确保你有权限写入指定的路径，并且Excel具有将文件导出为PDF的功能（这通常需要安装Adobe Acrobat或者使用Excel的内置PDF导出功能）。