我正在尝试将数组传递给数据透视表字段,但这样做时 excel 会引发运行时错误:1004 错误“应用程序定义或对象定义错误”。下面是我用 VBA 编写的一段代码:
Sub ARRAYER()
Dim i As Double
Dim ALM(8) As String
Sheet15.PivotTables("significance_pivot2").PivotFields("Pagename"). _
ClearAllFilters
For i = 1 To 8
ALM(i) = CStr(Sheet4.Range("F" + CStr(i + 2) + "").Text)
Next
For i = 1 To 8
Sheet4.Range("AA" & i).Value = ALM(i)
Next i
Sheet15.PivotTables("significance_pivot2").PivotFields("Pagename").VisibleItemsList = Array(ALM)-- It trows an error here!!!
End Sub