求助：如何用VBA将Excel不同工作表指定区域导出为PDF？

你当前代码的问题在于：当选中多个工作表执行ExportAsFixedFormat时，Excel会将最后一次选中的区域作为统一打印范围应用到所有工作表，而非保留每个表各自的指定区域。

解决方案 #

核心思路是给每个目标工作表单独设置PageSetup.PrintArea属性，指定各自需要导出的区域，再执行导出操作。如果需要，可在导出后恢复原打印区域，避免影响后续使用。

修改后的代码如下：

Sub SaveRangesAsPDF()
    Dim ws As Worksheet
    Dim originalPrintAreas As Collection
    Dim pdfPath As String
    
    ' 存储原打印区域，用于后续恢复（可选）
    Set originalPrintAreas = New Collection
    
    ' 获取PDF保存路径（来自Sheet3的A2单元格）
    pdfPath = ThisWorkbook.Worksheets("Sheet3").Range("A2").Value
    
    With ThisWorkbook
        ' 设置Sheet1的打印区域
        Set ws = .Sheets("Sheet1")
        originalPrintAreas.Add ws.PageSetup.PrintArea, Key:=ws.Name
        ws.PageSetup.PrintArea = "A1:L42"
        
        ' 设置Sheet2的打印区域
        Set ws = .Sheets("Sheet2")
        originalPrintAreas.Add ws.PageSetup.PrintArea, Key:=ws.Name
        ws.PageSetup.PrintArea = "A1:G35"
        
        ' 导出指定工作表为PDF
        .Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=pdfPath, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        
        ' 恢复原打印区域（不需要可删除此段）
        For Each ws In .Sheets(Array("Sheet1", "Sheet2"))
            ws.PageSetup.PrintArea = originalPrintAreas(ws.Name)
        Next ws
    End With
    
    ' 释放对象
    Set originalPrintAreas = Nothing
    Set ws = Nothing
End Sub

关键说明 #

• PageSetup.PrintArea：直接为每个工作表指定独立的打印区域，导出时Excel会严格遵循每个表的设置。
• 避免Activate/Select：这两个方法易引发逻辑错误，直接操作工作表对象是更可靠的VBA编程方式。
• 恢复原打印区域：如果不需要保留原有打印设置，可删除存储和恢复相关代码，简化程序。

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