excel - 使用 VBA 更新切片器（OLAP 数据馈送）

Question

我想使用 VBA 更新连接到 OLAP 数据馈送的切片器，但我遇到了一个我无法弄清楚的错误。

Sub update_slicer()

    Dim sc As SlicerCache
    Dim sL As SlicerCacheLevel
    Dim sI As SlicerItem
    Dim slicerItems_array

    Set sc = ThisWorkbook.SlicerCaches("Slicer_Sales_Month_Full_Name")
    Set sL = sc.SlicerCacheLevels(1)

    slicerItems_array = Array("Jun-19", "Jul-19")
    sc.VisibleSlicerItemsList = slicerItems_array
End Sub

错误信息：

运行时错误“1004”：
分析解析器的 XML：使用者提供的限制值与其他限制不匹配或引用未知对象。

标签： excelvba

Answer 1

希望这可以帮助某人。slicerItem 实际上是“[TIME].Sales Month Full Name.Jun-19”。我在 SlicerCacheLevel 上运行了一个快速循环来解决这个问题。