将工作表数组导出为PDF的VBA宏问题求助

一、导出两个工作表为单个PDF #

以下是修改后的代码，解决原代码无法导出多工作表的问题，同时修复路径选择失效的问题：

Sub ExportSheetsToPDF_Click()
    Dim FileAndLocation As Variant
    Dim strFilename As String
    Dim targetSheets As Variant
    
    ' 指定要导出的两个工作表名称，替换为实际表名
    targetSheets = Array("Leave Loading", "第二个工作表名称")
    
    ' 从指定单元格生成文件名
    With Sheets("Leave Loading")
        strFilename = .Range("F13").Value & ", " & .Range("F12").Value & " - " & .Range("F14").Value & " - Leave Loading.pdf"
    End With
    
    ' 弹出对话框让用户选择保存路径和文件名
    FileAndLocation = Application.GetSaveAsFilename( _
        InitialFileName:=strFilename, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="选择PDF保存位置")
    
    ' 若用户未取消选择，则执行导出
    If FileAndLocation <> False Then
        ' 选中目标工作表组
        ThisWorkbook.Sheets(targetSheets).Select
        
        ' 导出合并的PDF
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=FileAndLocation, _
            OpenAfterPublish:=True
    End If
End Sub

关键修改说明 #

• 新增targetSheets数组：明确指定要导出的两个工作表，替换数组内的名称为你的实际工作表名即可
• 修复路径逻辑：使用FileAndLocation（用户选择的完整路径）作为导出路径，原代码未用到该变量，导致保存路径异常
• 工作表组选中：通过Sheets(targetSheets).Select选中多个工作表，此时ActiveSheet会指代选中的工作表组，调用ExportAsFixedFormat即可生成包含所有选中工作表的PDF
• 添加取消判断：避免用户取消保存时触发错误

二、分别导出两个工作表为独立PDF #

如果需要每个工作表单独生成PDF，可使用以下代码：

Sub ExportEachSheetToPDF_Click()
    Dim savePath As String
    Dim baseFilename As String
    Dim ws As Worksheet
    
    ' 生成基础文件名（来自指定单元格）
    With Sheets("Leave Loading")
        baseFilename = .Range("F13").Value & ", " & .Range("F12").Value & " - " & .Range("F14").Value
    End With
    
    ' 让用户选择保存文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择PDF保存文件夹"
        If .Show = -1 Then
            savePath = .SelectedItems(1) & "\"
        Else
            Exit Sub ' 用户取消选择，终止程序
        End If
    End With
    
    ' 遍历目标工作表，逐个导出为PDF
    For Each ws In ThisWorkbook.Sheets(Array("Leave Loading", "第二个工作表名称"))
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath & baseFilename & " - " & ws.Name & ".pdf", _
            OpenAfterPublish:=False ' 设为True可导出后自动打开PDF
    Next ws
    
    MsgBox "所有工作表已完成PDF导出！", vbInformation
End Sub

原代码问题梳理 #

1. strPathLocation变量未定义：会导致编译错误，已移除该变量，直接使用生成的文件名作为初始保存名
2. 未使用用户选择的路径：原代码仅弹出保存对话框，但实际导出时用的是strFilename（仅文件名，无路径），导致文件保存到Excel默认路径
3. 多工作表导出方式错误：直接用工作表数组调用ExportAsFixedFormat无效，必须通过选中工作表组或遍历单个工作表实现

内容的提问来源于stack exchange，提问作者Shaun