|
我有一个很大的Excel文件，里面有很多数据透视表(来自olap-cube)--每20页中大约有5个。每周我都需要更改数据过滤器，并将它们向前移动一周。我已经写了一个宏，它只为一个透视表做这件事。 Sub Weeks_upd()
'
' Weeks_upd Ìàêðîñ
'
' Ctrl+u
'
ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Fact data].[Year - Week - day].[Week]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Fact data].[Year - Week - day].[Week]").VisibleItemsList = Array( _
"[Fact data].[Year - Week - day].[Week]").&[202025]", _
"[Fact data].[Year - Week - day].[Week]").&[202026]", _
"[Fact data].[Year - Week - day].[Week]").&[202027]", _
"[Fact data].[Year - Week - day].[Week]").&[202028]")
ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Fact data].[Year - Week - day].[Week]").VisibleItemsList = Array("")
End Sub如何为文件中的所有透视表展开此宏？或者，是否有其他方法可以更新数据透视表，而无需实际单击每个表？
|