excel - 编写 VBA 以过滤 OLAP 数据透视表字段

Question

我是 VBA 新手。我有一个带有由 OLAP Cube 创建的数据透视表的 excel 文件。我尝试创建一个变量来过滤数据透视表中的特定列。

我使用了记录宏，这就是我所拥有的：

Sub Macro1()

    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Item].[ItemByProducer].[ProducerName]").VisibleItemsList = Array( _
        "[Item].[ItemByProducer].[ProducerName].&[the name of the producer]")

End Sub

该宏适用于该特定生产者，但我想创建一个字符串类型的变量，我也可以在其中过滤其他生产者。

我怎样才能做到这一点？

Answer 1

将变量放入数组中 -producers = Array("ProducerA", "ProducerB", "ProducerC")

然后用下面的代码循环它们。只需确保将名称更改为"NameOfWorksheet"您正在使用的工作表即可。ActiveSheet不是一个好主意 -如何避免在 Excel VBA 中使用 Select：

Sub TestMe()

    Dim producers As Variant
    producers = Array("ProducerA", "ProducerB", "ProducerC")
    Dim producer As Variant
    
    For Each producer In producers
        ThisWorkbook.Worksheets("NameOfWorksheet").PivotTables("PivotTable1").PivotFields( _
            "[Item].[ItemByProducer].[ProducerName]").VisibleItemsList = Array( _
                "[Item].[ItemByProducer].[ProducerName].&[" & producer & "]")
    Next    

End Sub