VBA 在消息框中显示集合 - 错误

Question

我正在尝试弹出一条消息，例如，

"There are 3 Reports available . They are Today, Yesterday, Day before"

这是代码，

  On Error Resume Next
  For Each a In MonthYear
     arr.Add a, a
  Next

  For i = 1 To arr.Count
     Cells(i, 1) = arr(i)
  Next


MsgBox ("There are " & arr.Count & " Reports available. They are  " & arr &

但它不起作用。它说找不到子或参数。

Answer 1

对于一个数组，因为看起来 OP 正在使用一个。现在 OP 已编辑帖子以显示集合，此方法将不起作用。

我将把它留给 future 的读者，以供选择使用数组。

MsgBox "There are " & UBound(arr) + 1 & " Reports available. They are  " & Join(arr,",")