Фильтр 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 со своими объектами.