无法使用powerpivot中的VBA过滤数据透视表

Question

PivotSummary1 - Pivot Table Table2

上面的数据透视表是从powerpivot生成的。

我有一个循环过滤器并执行任务的代码，它适用于普通数据透视表，但不适用于powerpivot数据透视表。

我录制一个宏来执行过滤器并尝试重放，但它给了我运行时错误1004.

Macro2适用于普通数据透视表，Macro1不适用于powerpivot数据透视表。

Sub Macro2()
' Macro2 Macro (Normal Pivot Table)
'
ActiveSheet.PivotTables("PivotSummary").PivotFields("Name").ClearAllFilters
ActiveSheet.PivotTables("PivotSummary").PivotFields("Name").CurrentPage = "A"
End Sub

Sub Macro1()
' Macro1 Macro (Powerpivot Pivot Table)
'
ActiveSheet.PivotTables("PivotSummary1").PivotFields("[Table2].[Name].[Name]"). _
    ClearAllFilters
ActiveSheet.PivotTables("PivotSummary1").PivotFields("[Table2].[Name].[Name]"). _
    CurrentPageName = "[Table2].[Name].&[A]"
End Sub

这里有什么问题？由于我无法引用它，我无法获得与普通数据透视表相同的结果。