如何将工作簿中选定的工作表导出为独立的PDF文件？

原代码的问题在于：循环中调用sh.ExportAsFixedFormat时，ActiveWindow.SelectedSheets仍保持多个工作表选中的状态，Excel会默认导出所有选中的工作表，而非单个目标工作表，导致每个PDF文件内容重复且包含所有选中表。

修正后的代码 #

Sub ExportAsPDF()
    Dim Folder_Path As String
    Dim originalSheets As Variant
    Dim sh As Worksheet
    Dim i As Integer
    
    ' 选择保存文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择保存路径"
        If .Show = -1 Then Folder_Path = .SelectedItems(1)
    End With
    If Folder_Path = "" Then Exit Sub
    
    ' 保存原始选中的工作表集合
    ReDim originalSheets(1 To ActiveWindow.SelectedSheets.Count)
    For i = 1 To ActiveWindow.SelectedSheets.Count
        Set originalSheets(i) = ActiveWindow.SelectedSheets(i)
    Next i
    
    ' 禁用屏幕刷新，提升效率并避免视觉闪烁
    Application.ScreenUpdating = False
    
    For Each sh In ActiveWindow.SelectedSheets
        ' 取消所有选中，仅选中当前要导出的工作表
        ActiveWindow.SelectedSheets.Select False
        sh.Select
        
        ' 导出当前工作表为独立PDF
        sh.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Folder_Path & Application.PathSeparator & Range("RD").Text & " " & sh.Name & " 2024.pdf", _
            Quality:=xlQualityStandard
            
    Next sh
    
    ' 恢复原始选中的工作表
    originalSheets(1).Select
    For i = 2 To UBound(originalSheets)
        originalSheets(i).Select False
    Next i
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    
    MsgBox "导出完成"
End Sub

关键修改点说明 #

• 保存原始选中状态：避免导出后丢失用户最初选中的工作表集合
• 单独选中目标工作表：每次循环时先取消所有选中，再单独选中当前要导出的表，确保Excel只导出单个工作表
• 禁用屏幕刷新：减少导出过程中的界面闪烁，提升运行效率
• 恢复选中状态：导出完成后还原用户最初的选中工作表，保持操作连贯性

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