基于数据模型的数据透视表VBA筛选指定项失败（PivotItems计数为0）求助

你的问题核心在于基于数据模型（Power Pivot）创建的透视表，不能用普通PivotField.PivotItems操作筛选，这类透视表的字段属于Cube字段，需用专属方法处理，这也是你之前PivotItems.Count显示为0的原因。

修正后的代码 #

Sub Select_Filter()
    Dim pt As PivotTable
    Dim cf As CubeField
    Dim ws As Worksheet
    
    Set ws = Worksheets("Sheet1")
    Set pt = ws.PivotTables("pvt1")
    Set cf = pt.CubeFields("[table1].[filter1].[filter1]")
    
    ' 清除现有筛选
    cf.ClearManualFilter
    
    ' 设置仅选中Item1
    cf.CurrentPageName = "[table1].[filter1].&[Item1]"
End Sub

关键说明 #

• 基于数据模型的透视表，字段需通过CubeFields对象获取，而非普通PivotFields。
• 筛选值的格式必须匹配数据模型命名规则：[表名].[字段名].&[值]，注意值的大小写要与数据模型内的完全一致。
• 若需多选，可通过VisibleItemsList数组设置，示例：

  cf.VisibleItemsList = Array("[table1].[filter1].&[Item1]", "[table1].[filter1].&[Item2]")
  

内容的提问来源于stack exchange，提问作者Coco Palafox