VBA CubeField过滤器

Question

对于我正在做的正常数据透视表

For Each item In .PivotTables("table1").PivotFields("field1").PivotItems
    If item.Value = "asdf" Then
        item.Visible = True
    Else
        item.Visible = False
    End If
Next item

其中field1不是页面字段。我可以在数据模型数据透视表中执行相同的操作吗？我已经阅读了CubeFields，但我没有安装PowerPivot。

Answer 1

没有文档或论坛或视频教程可以让我得到这个答案，所以我为了未来的人性而分享它。

.PivotTables("table1").CubeFields( _
    "[MyDB].[field1]").CreatePivotFields
.PivotTables("table1").PivotFields( _
    "[MyDB].[field1].[field1]").VisibleItemsList = Array( _
    "[MyDB].[field1].&[asdf])

用你自己的物品取代MyDB，table1，field1和asdf。