Excel VBA合并代码实现按部门批量导出选中工作表为PDF

• 单元格引用未指定工作表：原始拼接代码中Range、Cells默认指向活动工作表，循环过程中选中报表工作表后，无法正确读取Control Panel、Master Data工作表的单元格值，导致部门赋值为空
• 多表导出逻辑错误：选中多工作表后使用ActiveSheet导出，仅会导出当前激活的单张工作表，不会合并多张表
• 未等待公式刷新：E7赋值后没有触发公式重算，报表数据还没更新就导出，导致空白

首先修正工作表激活事件的笔误，把Private Sum改为Private Sub：

Private Sub Worksheet_Activate()
    Dim Sh As Object
    Me.ListBoxSh.Clear
    For Each Sh In ThisWorkbook.Sheets
        Me.ListBoxSh.AddItem Sh.Name
    Next Sh
End Sub

主导出宏代码：

Sub ExportDeptPDF()
    Dim i As Long, c As Long, r As Long
    Dim SheetArray() As String
    Dim ctrlPanel As Worksheet, masterData As Worksheet
    Dim savePath As String
    
    ' 可自行修改PDF保存路径，末尾保留反斜杠
    savePath = "C:\你的PDF保存文件夹路径\"
    Set ctrlPanel = ThisWorkbook.Worksheets("Control Panel")
    Set masterData = ThisWorkbook.Worksheets("Master Data")
    
    ' 一次性读取ListBox选中的工作表列表
    With ctrlPanel.ListBoxSh
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                ReDim Preserve SheetArray(c)
                SheetArray(c) = .List(i)
                c = c + 1
            End If
        Next i
    End With
    
    ' 未选中工作表直接退出
    If c = 0 Then
        MsgBox "请先选择要导出的报表工作表"
        Exit Sub
    End If
    
    ' 循环每个部门导出PDF
    For r = 8 To 13
        ' 明确指定工作表赋值，避免引用错位
        ctrlPanel.Range("E7").Value = masterData.Cells(r, "AC").Value
        ' 强制全表重算，等待报表公式刷新完成
        Application.Calculate
        DoEvents
        
        ' 直接合并选中的多张工作表导出为PDF
        ThisWorkbook.Sheets(SheetArray()).ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath & ctrlPanel.Range("E7").Value & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next r
    
    MsgBox "所有部门PDF导出完成！"
End Sub

• 所有单元格引用都明确绑定所属工作表，彻底避免活动表切换导致的引用错位问题
• 提前一次性读取选中的工作表列表，循环过程中不需要再操作ListBox控件，提升效率也避免出错
• 新增Application.Calculate和DoEvents，强制所有公式重算完成后再执行导出，确保数据是当前部门的最新结果
• 直接对工作表数组调用导出方法，不需要提前选中工作表，自动合并所有选中的工作表到同一个PDF文件
• 文件名直接用E7的部门值命名，也可以根据需求替换为其他单元格值

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