VBA导出选中工作表为PDF时包含全部工作表的问题求助

问题原因 #

当多个工作表处于选中状态时，调用单个工作表的ExportAsFixedFormat方法，Excel会默认导出所有选中的工作表，而非仅目标工作表，这是导致每个PDF包含全部工作表的核心原因。

解决方案 #

在每次导出前，先激活目标工作表（此操作会自动取消其他工作表的选中状态），确保仅当前工作表处于选中状态后再执行导出。

修改后的完整代码 #

Sub ConvertToPDFAndHighlightTabs()
    Dim ws As Worksheet
    Dim pdfFileName As String
    Dim savePath As String
    Dim previousMonth As String
    Dim selectedSheet As Worksheet
    
    ' 关闭屏幕更新，提升执行效率
    Application.ScreenUpdating = False

    ' 获取上月名称（格式：月份缩写-年份后两位）
    previousMonth = Format(DateAdd("m", -1, Now), "mmm" & "-" & "yy")

    ' 设置PDF保存路径
    savePath = "My desired location" & previousMonth & "\"

    ' 若保存目录不存在则创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If

    ' 遍历所有选中的工作表
    For Each selectedSheet In ActiveWindow.SelectedSheets
    
        ' *关键修复*：激活当前工作表，取消其他工作表的选中状态
        selectedSheet.Activate
        
        ' 生成PDF文件名（以工作表名称命名）
        pdfFileName = savePath & selectedSheet.Name & ".pdf"
        
        ' 导出当前激活的工作表为PDF
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=pdfFileName, _
            Quality:=xlQualityStandard

        ' 将工作表标签高亮为浅绿色
        selectedSheet.Tab.Color = RGB(144, 238, 144)
    Next selectedSheet

    ' 弹出完成提示
    MsgBox "PDF Conversion Complete!" & vbCrLf & "PDFs saved in: " & savePath, vbInformation
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

额外优化说明 #

• 移除了原代码中的Application.Wait：屏幕更新已关闭，标签高亮操作无需延迟即可生效，避免不必要的等待时间。
• 补充了Application.ScreenUpdating = True：原代码遗漏此步骤，可能导致Excel界面后续出现异常。

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