使用VBAmacros（Excel）将切片器设置为variables的值

这对于这里的专家来说是一个非常微不足道的问题:)

我试图设置一个切片机使用macros的variables的值。 我已经声明了一个Stringvariables。

Dim ProductName As String '+Some code here to assign a value to ProductName (value of a cell) ActiveWorkbook.SlicerCaches("Slicer_Name1").VisibleSlicerItemsList = Array( _ "[Team Project].[Project Node Name].&[ProductName]") 

这显然不起作用，我没有料到，但我不知道如何能把它作为一个variables，而不是一个文字。

其余的代码是好的，因为我可以通过指定产品名称而不使用variables来成功设置切片机。

 ActiveWorkbook.SlicerCaches("Slicer_Name1").VisibleSlicerItemsList = Array( _ "[Team Project].[Project Node Name].&[Bedsheets]") 

Answer 1

将variables粘在string之外

 Dim ProductName As String ActiveWorkbook.SlicerCaches("Slicer_Name1").VisibleSlicerItemsList = Array( _ "[Team Project].[Project Node Name].&[" & ProductName & "]" )