编译错误：预期列表分隔符或）：错误消息

我收到“编译错误：预期列表分隔符”）错误消息。任何人都可以用下面的代码来帮助我解决错误信息。编译错误：预期列表分隔符或）：错误消息

只有我做出改变是在最后托架我换成 “三角洲” 与 “范围（” AO294 “）。文本”

Sub MyPvt() 
' 
' MyPvt Macro 

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


End Sub

谢谢

来源

2016-11-06 Dokat

你想用这个做什么？你可以添加数据透视表的屏幕截图吗？ – Niclas

Sub MyPvt() 
' 
' MyPvt Macro 

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


End Sub

来源

2016-11-06 21:50:32

不能使用.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

来源

2016-11-06 21:51:01 Niclas

不幸的是它没有工作。当我尝试收到运行时错误代码：1004无法获取工作表类错误消息的数据透视表属性。你能帮忙吗？ – Dokat

这是因为您的数据透视表中没有数据透视表字段。我认为你应该尝试命名表单而不是使用“activesheet”。因此，使用'Sheets（“SHEETNAMEHERE”）'而不是'ActiveSheet'，因为如果您在另一个工作表中，上述宏将不起作用。 – Niclas

因此，检查活动工作表（您应该使用正确的工作表名称而不是活动工作表）实际上包含数据透视表。之后，检查数据透视表名称是否正确（右键单击表格 - >'选项'） – Niclas

编译错误：预期列表分隔符或）：错误消息

回答

相关问题