VBA实现Slicer关联全部PivotTable并隐藏空值报错如何解决？

• 循环变量名不匹配：遍历SlicerCache时定义的变量是sc，但循环结束语句写的是Next myCache，变量名不一致会引发编译或运行错误。
• 透视表对象引用错误：内层循环已经通过For Each pvt In ActiveSheet.PivotTables拿到了PivotTable类型的对象实例，你后续又写ActiveSheet.PivotTables(pvt)，相当于用对象本身作为索引去查询透视表集合，而透视表集合仅支持名称字符串、数字序号作为索引，这就是抛出"Unable to get the PivotTables property of the Worksheet class"错误的直接原因。
• 方法调用语法错误：AddPivotTable是方法，不需要加括号包裹参数，错误的括号写法会导致参数传递异常。

Sub sliceredits()
    Dim sc As SlicerCache
    Dim pvt As PivotTable
    
    For Each sc In ActiveWorkbook.SlicerCaches
        ' 设置隐藏无数据的切片器选项
        sc.CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData

        For Each pvt In ActiveSheet.PivotTables
            ' 临时跳过数据源不匹配无法关联的异常
            On Error Resume Next
            sc.PivotTables.AddPivotTable pvt
            On Error GoTo 0
        Next pvt
    Next sc

End Sub

• 代码中加入了临时错误跳过逻辑，避免切片器和透视表数据源不一致时关联失败抛出错误。
• 如果你只需要处理当前工作表关联的切片器，而不是整个工作簿的所有切片器，可以把ActiveWorkbook.SlicerCaches改成ActiveSheet.SlicerCaches，减少不必要的遍历。

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