VBA提交的自动填充数据透视表

Question

我有以下问题：

我有一个由BI系统创建的数据透视表。 我想通过将在WS的任何单元格中写入的值列表来过滤数据透视图中的特定字段。

必须考虑：

1）字段可以在报告之间进行更改，因此它对于我的选择必须是动态的（由该字段的索引优先）
2）打开过滤器箭头时并非所有值都是可见的

选择3个代码时的录制样本：

sub()   
 ActiveSheet.PivotTables("pivottable5").PivotFields( _
 "[DIM TREATMENTS].[CPT CODE PK].[CPT CODE PK]").VisibleItemsList = Array( _
        "[DIM TREATMENTS].[CPT CODE PK].&[*********]", 
        "[DIM TREATMENTS].[CPT CODE PK].&[*********]", 
        "[DIM TREATMENTS].[CPT CODE PK].&[*********]") End Sub