将所有选定的切片器项目值读取到数组变量

Question

如何将所有选定的切片器项目值读取到数组变量？我认为这可能有效：

Dim MyArr() as Variant
MyArr = ActiveWorkbook.SlicerCaches(1).VisibleSlicerItemsList

但事实并非如此。参考资料：
https://docs.microsoft.com/en-us/office/vba/api/excel.slicercache.visiblesliceritemslist

Answer 1

除非使用OLAP数据源，否则不能使用VisibleSlicerItemsList。 从文档中：

  

VisibleSlicerItemsList 属性仅适用于基于OLAP数据源的切片器。

我认为最简单的方法是遍历VisibleSlicerItems。