将项目列表设置为多个数据透视表

Question

一直试图将相同的项目列表设置为基于我在工作簿中的多个数据透视表之一中所做的更改的多个OLAP数据透视表。

录制的宏（这将删除旧的选择以及）：

Sub GetPivotFilter() 

ActiveSheet.PivotTables("Pivottabell4").PivotFields(_ 
    "[DimCampaign].[Campaigns].[Campaign]").VisibleItemsList = Array(_ 
    "[DimCampaign].[Campaigns].[Campaign].&[106679]", _ 'generated after i select campaing 
    "[DimCampaign].[Campaigns].[Campaign].&[106680]", _'generated after i select campaing 

    "[DimCampaign].[Campaigns].[Campaign].&[107049]")'generated after i select campaing 


End Sub 

我如何可以提取改变我的第一枢轴做（我不知道这些数字之前，我作出改变）？

我该如何得到这适用于那些可以添加广告系列选项的数据透视表？

目前的解决方案，我有看起来杂乱无章，但工程：

Sub SetPivotFilter() 

ActiveSheet.PivotTables("Pivottabell4").PivotFields(_ 
"[DimCampaign].[Campaigns].[Campaign]").VisibleItemsList = Array(_ 
"[DimCampaign].[Campaigns].[Campaign].&[106679]", _  
"[DimCampaign].[Campaigns].[Campaign].&[106680]", _  
"[DimCampaign].[Campaigns].[Campaign].&[107049]") 
ActiveSheet.PivotTables("Pivottabell18").PivotFields(_ 
"[DimCampaign].[Campaigns].[Campaign]").VisibleItemsList = Array(_ 
"[DimCampaign].[Campaigns].[Campaign].&[106679]", _  
"[DimCampaign].[Campaigns].[Campaign].&[106680]", _  
"[DimCampaign].[Campaigns].[Campaign].&[107049]") 
'and so on 
End Sub 

所有帮助是非常赞赏

Answer 1

下面的代码通过所有数据透视表名称环路是pvtTblNameArr（阵列），在工作表名称“SheetPivot”（根据您的工作表名称进行修改）。

Option Explicit 

Sub GetPivotFilter() 

Dim PvtTbl    As PivotTable 
Dim pvtitem    As PivotItem 
Dim pvtFld    As PivotField 
Dim pvtTblNameArr()  As Variant 
Dim i     As Integer 

' modify this array to all PivotTable names you need to modify (in the same sheet) 
pvtTblNameArr() = Array("Pivottabell4", "Pivottabell8") 

' loop though Pivot Table Names 
For i = LBound(pvtTblNameArr) To UBound(pvtTblNameArr) 

    ' change "SheetPivot" to your sheet name 
    Set PvtTbl = ThisWorkbook.Sheets("SheetPivot").PivotTables(pvtTblNameArr(i)) 

    ' set Pivot field variable to "Campaign" 
    Set pvtFld = PvtTbl.PivotFields("Campaign") 

    ' lop through all Pivot Items in "Campaign" Pivot Field 
    For Each pvtitem In pvtFld.PivotItems 

     Select Case pvtitem.Name 
      Case 106679, 106680, 107049 
       pvtitem.Visible = True 

      Case Else 
       pvtitem.Visible = False 

     End Select 

    Next pvtitem 

Next i 

End Sub