編譯錯誤：預期列表分隔符或）：錯誤消息

Question

我收到“編譯錯誤：預期的列表分隔符或”錯誤消息。 任何人都可以通過以下代碼幫助我解決導致錯誤消息的問題。

我所做的唯一更改是在最后一個括號中，我用“ Range（“ AO294”）。Text”替換了“ Delta”

Sub MyPvt()
'
' MyPvt Macro

    ActiveSheet.PivotTables("MyPvt").PivotFields( _
        "[Append1].[Manufacturer].[Manufacturer]").VisibleItemsList = Array( _
        "[Append1].[Manufacturer].&[Range("AO294").Text]"


End Sub

謝謝

Answer 1

Sub MyPvt()
'
' MyPvt Macro

    ActiveSheet.PivotTables("MyPvt").PivotFields( _
        "[Append1].[Manufacturer].[Manufacturer]").VisibleItemsList = Array( _
        "[Append1].[Manufacturer].[" & Range("AO294").Text & "])"


End Sub

Answer 2

您不能使用.Range.Text 。 而是嘗試使用set將引用分配給范圍對象。 另外，您需要關閉陣列。

Sub MyPvt1() ' ' MyPvt Macro
Dim arrPivot
Dim pvtValue

pvtValue = Range("AO294").Value

arrPivot = "[Append1].[Manufacturer].&[" & pvtValue & "]"

ActiveSheet.PivotTables("MyPvt").PivotFields( _
"[Append1].[Manufacturer].[Manufacturer]").VisibleItemsList = _
Array(arrPivot)

End Sub