Excel VBA：从每个切片器

Question

我正在尝试从工作簿中存在的每个切片器中选择所有项目。

目前我有以下内容，但这是在第6行产生“运行时错误438：对象不支持此属性或方法”，我通过i开始循环：

Dim sc As SlicerCache
Dim sl As Slicer
Dim i As Integer
For Each sc In ActiveWorkbook.SlicerCaches
    For Each sl In sc.Slicers
        For i = 1 To sl.SlicerItems.Count
            sl.SlicerItems(i).Selected = True
        Next i
    Next sl
Next sc

我需要在中间使用i循环，因为稍后我想使用相同的代码来仅选择数组中存在的项目。

非常感谢任何帮助，谢谢！

Answer 1

将该行更改为For i = 1 to sc.SlicerItems.Count并且它应该有效（slicerItems是SlicerCache的属性而不是Slicer对象本身