Excel 无法使用powerpivot中的VBA筛选透视表

上面的透视表是从powerpivot生成的

我有一个代码来循环过滤并执行任务，它适用于普通的数据透视表，但不适用于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

我录制了一个宏以执行筛选，并尝试重播，但它给了我运行时错误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

这里怎么了？因为我不能引用它，所以我不能得到与普通透视表相同的结果

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