Excel VBA-如何根据一个表筛选数据透视表

Excel VBA-如何根据一个表筛选数据透视表,excel,vba,pivot,Excel,Vba,Pivot,我想根据一个主数据透视表过滤电子表格中的所有数据透视表。主透视表只有两个过滤器；时间和扇区。所有其他表都有这些过滤器，还有一些 我编写了这段代码，根据主透视表中的日期筛选所有透视表，但我还没有弄清楚如何应用第二个筛选器（扇区）： 公共子同步日期（） 每个sht的图纸 如果是（sht.Name ActiveSheet.Name），则 对于sht.数据透视表中的每个pvt sht.PivotTables（pvt.Name）.PivotFields（“[Time].[Hie Time].[Shana]

公共子同步日期（）
每个sht的图纸
如果是（sht.Name ActiveSheet.Name），则
对于sht.数据透视表中的每个pvt
sht.PivotTables（pvt.Name）.PivotFields（“[Time].[Hie Time].[Shana]”）。CurrentPageName=_
ActiveSheet.PivotTables（1）.PivotFields（“[Time].[Hie Time].[Shana]”）。CurrentPageName
下一个
如果结束
下一个
MsgBox“同步已结束”
端接头

Public Sub SyncDates()
 For Each sht In Sheets
  If (sht.Name <> ActiveSheet.Name) Then
   For Each pvt In sht.PivotTables
    sht.PivotTables(pvt.Name).PivotFields("[Time].[Hie Time].[Shana]").CurrentPageName = _
    ActiveSheet.PivotTables(1).PivotFields("[Time].[Hie Time].[Shana]").CurrentPageName
   Next
  End If
 Next
 MsgBox "Sync has ended"
End Sub