VBA将当前工作簿所有工作表分别另存为以工作表名称命名的PDF文件

以下是VBA代码，可以将当前工作簿中的每个工作表分别另存为以工作表名称命名的PDF文件：

Sub SaveSheetsAsPDFs()
    Dim ws As Worksheet
    Dim savePath As String
    Dim fileName As String
    
    '获取保存路径
    savePath = Application.ActiveWorkbook.Path & "\"
    
    '禁用屏幕刷新，加快处理速度
    Application.ScreenUpdating = False
    
    '循环处理每个工作表
    For Each ws In ActiveWorkbook.Worksheets
        '生成文件名
        fileName = ws.Name & ".pdf"
        
        '保存PDF文件
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath & fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
        '提示进度
        Debug.Print "Saved " & fileName
    Next ws
    
    '启用屏幕刷新
    Application.ScreenUpdating = True
End Sub

代码中使用了ExportAsFixedFormat方法将工作表另存为PDF文件，并通过循环遍历每个工作表来进行处理。该代码将PDF文件保存在当前工作簿所在目录下，文件名以工作表名称命名。你可以根据需要修改保存路径和文件名。