更改数据透视表筛选器不起作用 VBA

Question

我有一个从 Power Pivot 创建的表格。

我需要能够循环列表并根据列表更改过滤器，直到到达末尾。

我已经设法使用标准表执行此操作，但使用数据透视表执行此操作会出现错误并且不起作用。

    ThisWorkbook.Sheets("DATA").PivotTables("VQ_Table").PivotFields( _
        "[VQ_Table].[TM Name].[TM Name]").VisibleItemsList = Array("TM Name Here")

请问有人可以建议吗？ 预先感谢。

Answer 1

确保指定的数据透视字段对象存在。

Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable 
rw = 0 
For Each pvtField In pvtTable.PivotFields 
 rw = rw + 1 
 nwSheet.Cells(rw, 1).Value = pvtField.Name 
Next pvtField

尝试迭代所有数据透视字段并记下它们的名称。