使用VBA将excel工作簿里的所有工作表按工作表名称分别另存为PDF文档

你可以使用以下VBA代码将Excel工作簿中的所有工作表分别另存为PDF文档：

Sub SaveWorksheetsAsPDFs()
    Dim sht As Worksheet
    Dim folderPath As String
    Dim filePath As String
    
    '设置文件夹路径
    folderPath = "C:\Users\UserName\Documents\PDFs\"
    
    '循环处理每个工作表
    For Each sht In ActiveWorkbook.Worksheets
        '生成文件路径和名称
        filePath = folderPath & sht.Name & ".pdf"
        
        '另存为PDF
        sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next sht
End Sub

在上面的示例代码中，你需要替换“C:\Users\UserName\Documents\PDFs\"为你要保存PDF文件的文件夹路径。这个路径可以根据你的需要进行更改。

相关问题

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 文档。

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文件保存在当前工作簿所在目录下，文件名以工作表名称命名。你可以根据需要修改保存路径和文件名。