Excel VBA：从每个切片器中选择所有项目

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

目前，我有以下内容，但这会在第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循环，因为以后我想使用相同的代码来选择只存在于数组中的项。

---

非常感谢您的帮助，谢谢

将i=1的那一行更改为

为sc.SlicerItems.Count

，它应该可以工作（SlicerItems是SlicerCache的属性，而不是Slicer对象本身

我相信你也应该在循环中将后续的

sl

更改为

sc

，也许这篇文章会有所帮助：非常感谢Brian。