Office 365 Excel VBA多工作表转PDF异常问题求助

异常原因分析 #

这个问题是Office 365 2401版本的行为变化导致的：当连续选中3个及以上工作表时，Excel会自动将它们标记为工作表组。在遍历选中工作表的第一个循环中，即便代码指向单个工作表，Excel的组选状态未被清除，导致ExportAsFixedFormat导出了整个组的内容。而非顺序选中或仅选2个工作表时，Excel不会触发自动组选，因此导出正常。

修复方案 #

以下是两种可行的修复代码，核心是清除组选状态或明确指定导出范围：

方案1：遍历前取消组选 #

Sub ExportSheetsToPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Dim selectedSheets As Sheets
    
    ' 保存原选中的工作表集合，避免后续操作丢失状态
    Set selectedSheets = ActiveWindow.SelectedSheets
    
    ' 取消工作表组选（关键修复步骤）
    ActiveSheet.Select
    
    savePath = Environ("USERPROFILE") & "\Desktop\"
    
    For Each ws In selectedSheets
        ws.Select ' 单独选中当前工作表，确保导出范围唯一
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath & ws.Name & ".pdf", _
            Quality:=xlQualityStandard
    Next ws
    
    ' 可选：恢复原选中状态
    selectedSheets.Select
End Sub

方案2：明确指定单个工作表的导出范围 #

Sub ExportSheetsToPDF()
    Dim ws As Worksheet
    Dim savePath As String
    
    savePath = Environ("USERPROFILE") & "\Desktop\"
    
    For Each ws In ActiveWindow.SelectedSheets
        ' 直接指定导出当前工作表的已用区域，彻底规避组选影响
        ws.UsedRange.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath & ws.Name & ".pdf", _
            Quality:=xlQualityStandard
    Next ws
End Sub

验证步骤 #

1. 按顺序选中Sheet1、Sheet2、Sheet3
2. 运行修复后的宏
3. 检查生成的PDF文件，确认每个文件仅包含对应单个工作表的内容

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