遍历切片器项批量导出多工作表为PDF的VBA代码报错求助

你的代码只导出第一个切片器项就报错，核心问题有3个：

1. 切片器未重置选中状态：每次仅设置当前项为选中，但未取消之前选中的项——如果切片器是单选模式，第二次选择会直接触发错误；就算是多选模式，也会导致数据逻辑混乱。
2. PDF导出对象错误：选中多个工作表后，用ActiveSheet.ExportAsFixedFormat只会导出第一个激活的工作表，而非所有指定的仪表盘。
3. 错误处理过于激进：一旦出错就直接终止整个程序，无法继续处理后续的切片器项。

Sub GenerateDistrictPDFs()
    ' 声明变量
    Dim slicerCache As SlicerCache
    Dim slicerItem As SlicerItem
    Dim dashboards As Variant
    Dim pdfPath As String
    Dim districtNumber As String ' 用String避免数字格式转换问题
    Dim wsData As Worksheet
    
    ' 定义需要导出的仪表盘工作表数组
    dashboards = Array("Dashboard 1", "Dashboard 2", "Dashboard 3", "Dashboard 4", "Dashboard 5", "Dashboard 6")
    
    ' 绑定数据工作表和切片器缓存
    Set wsData = ThisWorkbook.Sheets("Dashboard 1")
    Set slicerCache = ThisWorkbook.SlicerCaches("Slicer_EnrollDistrictNumber")
    
    ' 检查切片器是否存在
    If slicerCache Is Nothing Then
        MsgBox "找不到切片器'Slicer_EnrollDistrictNumber'，请核对切片器名称。", vbCritical
        Exit Sub
    End If
    
    ' 遍历所有切片器项
    For Each slicerItem In slicerCache.SlicerItems
        ' 跳过无数据的项
        If slicerItem.HasData Then
            On Error GoTo ErrorHandler ' 开启错误捕获
            
            ' 重置切片器状态：先清空所有选中项，再单独选中当前项
            slicerCache.ClearManualFilter
            slicerItem.Selected = True
            
            ' 等待数据透视表和图表完成刷新
            DoEvents
            
            ' 获取区县编号（用Text避免文本型数字转整数出错）
            districtNumber = wsData.Range("A3").Text
            
            ' 设置PDF保存路径
            pdfPath = "C:\Users\Child Count District PDFs\" & districtNumber & ".pdf"
            
            ' 直接导出所有仪表盘工作表，无需选中操作
            ThisWorkbook.Sheets(dashboards).ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=pdfPath, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False
            
            On Error GoTo 0 ' 关闭错误捕获
        End If
    Next slicerItem
    
    MsgBox "所有区县PDF导出完成！", vbInformation
    Exit Sub
    
ErrorHandler:
    MsgBox "处理区县'" & slicerItem.Name & "'时出错：" & Err.Description, vbExclamation
    Err.Clear
    Resume Next ' 跳过错误项，继续遍历下一个
End Sub

• 切片器状态重置：用slicerCache.ClearManualFilter清空所有选中项，再单独选中当前项，确保每次仅激活一个切片器项，彻底解决多选冲突问题。
• PDF导出逻辑优化：直接调用工作表集合的ExportAsFixedFormat方法，一次性导出所有指定仪表盘，避免ActiveSheet的局限性。
• 错误处理升级：统一捕获错误，出错后跳过当前项继续执行，不会直接终止整个程序。
• 编号格式优化：用Text获取单元格值，避免文本型数字转整数时的格式错误。
• 添加刷新等待：DoEvents确保切片器切换后，数据透视表和图表完全刷新，保证导出内容为最新数据。

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