VBA将当前工作簿所有工作表按工作表名称分别另存为PDF文档

以下是实现将当前工作簿所有工作表按工作表名称分别另存为PDF文档的 VBA 代码：

Sub ExportWorksheetsAsPDF()
    Dim ws As Worksheet
    Dim path As String
    Dim file As String
    
    '获取当前工作簿路径
    path = ThisWorkbook.path & "\"
    
    '循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        '获取工作表名称
        file = ws.Name & ".pdf"
        '另存为PDF文档
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & file, Quality:=xlQualityStandard
    Next ws
End Sub

你可以将这段代码复制到 VBA 编辑器中，或者按下 `Alt` + `F11` 打开 VBA 编辑器，插入一个新模块，然后将代码复制进去。接着，你可以在 Excel 中按下 `Alt` + `F8`，选择 `ExportWorksheetsAsPDF` 宏并运行它，即可将当前工作簿所有工作表按工作表名称分别另存为 PDF 文档。