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。