如何创建动态数据透视表字段？

目标是用户可以使用来自单元格的数据并最终更改数据字段项而不必按任何内容（即，如果 A1 表示 "Hello" ，它将取消选择数据字段中的所有其他项并选择 "Hello" 数据字段项目） .

从录制我的宏，到在透视字段中更改我的枢轴项我使用以下代码：

Sub Macro2()

    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Treaty].[Market Category].[Market Category]").VisibleItemList = Array("[Treaty].[Market Category].&[5Star Term]")

End Sub

我一直在试用MrExcel的这个解决方案并修改它以适合我自己的模型：https://www.mrexcel.com/forum/excel-questions/543610-how-create-array-vba.html

Sub Test()
    Dim MyArray As Variant
    MyArray = Application.Transpose(Range("A1").Value)
    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Treaty].[MarketCategory].&[Market Category]").VisibleItemsList = MyArray
End Sub

单元格A1具有：

[Treaty].[Market Category].&[5Star Term]

它不起作用 . vba上的本地部分说 MyArray 正在接收它，但它说：

运行时错误'1004'：无法获取数据透视表类的PivotFields属性 .

这是什么意思？？

我怎样才能解决这个问题？？

我在StackOverflow上查看了其他解决方案，但我没有得到我想要的东西 . 有没有办法让阵列动态化？

谢谢！！

arrays vba dynamic pivot-table