VBA通过数组嵌套For Each循环 - 语法

Question

我在工作表上有多个数据透视表，我想循环遍历其中两个数据透视表（表4和表5）中的所有数据透视表字段项。我创建了2个PivotItems变量对象，将它们放在一个数组中，我想做一个嵌套的For Each循环迭代数组中的每个对象，然后迭代每个数组对象中的每个数据透视表项。我一直收到运行时错误'424'：第11行所需的对象For Each PvI in Item

以下是代码：

Dim PvtTbl4, PvtTbl5 As PivotItems
Set PvtTbl4 = Worksheets("Main").PivotTables("PivotTable4").PivotFields("dayname").PivotItems
Set PvtTbl5 = Worksheets("Main").PivotTables("PivotTable5").PivotFields("dayname").PivotItems

Dim PivotArray As Variant
PivotArray = Array(PvtTbl4, PvtTbl5)
Dim PvI As PivotItem
Dim Item As Variant

For Each Item In PivotArray
  For Each PvI In Item  //<-- error
  //do something
Next PvI
Next Item