使用 VBA 过滤 OLAP 数据透视表

问题描述

我可以通过 OLAP 数据透视表访问我们的数据库。我经常想根据多个客户端编号（不连续）进行过滤。然而，客户列表太长，尝试滚动浏览和手动选择客户是不可能的。我希望通过添加切片器并使用宏来选择可见的切片器项目来解决这个问题（尽管我对其他想法持开放态度）。我希望有一个工作表，我可以在其中添加我想过滤的客户端编号列表，以便在运行时将宏应用于切片器。

当我录制一个宏时，它产生了以下代码：

ActiveWorkbook.SlicerCaches("Slicer_Client_ID").VisibleSlicerItemsList = Array _
        ( _
        "[DimMatter].[CurrClientNumber].&[090204]",_
        "[DimMatter].[CurrClientNumber].&[092223]",_
        "[DimMatter].[CurrClientNumber].&[102028]",_
        "[DimMatter].[CurrClientNumber].&[103118]",_
        "[DimMatter].[CurrClientNumber].&[104382]")

所以我编写了代码来创建一个数组，我希望将其输入到可见切片器项目列表中：

    Set wb = Workbooks("workbook.xlsm")
    Set iws = wb.Sheets("Client List")
    Set tws = wb.Sheets("Table_Sheet")

    
    s_count = iws.Range("A1").End(xlDown).Row
    
    'initialize the array
    ReDim s_array(s_count - 2)
    'populate the array
    For i = 2 To s_count
        arr_itm = iws.Range("A1").Offset(i - 1,0).Value
        s_array(i - 2) = "[DimMatter].[CurrClientNumber].&[" & arr_itm & "]"
    Next i

    wb.SlicerCaches("Slicer_Client_ID").VisibleSlicerItemsList = Array(s_array)

我一直在思考如何将我的数组实际输入到切片器项目列表中。当我运行上面的代码时，我收到一条错误消息：“运行时错误‘1004’：在 OLAP 多维数据集中找不到该项目”。

我刚开始使用数组和 OLAP 多维数据集，因此希望得到任何反馈。

解决方法

Array function 接受一个值列表并将它们转换为一个数组。使用 Array(s_array) 为您提供一个单元素数组，其中一个元素本身就是一个具有 (s_count - 1) 个元素的数组 - 即从零到 (scount - 2)。换句话说，您已经创建了一个具有边界 (0 To 0,0 To s_count - 2) 的二维数组。

要解决这个问题，只需直接使用 s_array 并省略 Array(...) 部分：

wb.SlicerCaches("Slicer_Client_ID").VisibleSlicerItemsList = s_array

注意：答案假定默认 Option Base 0 有效并且数组从元素 0 开始

excel excel olap-cube