求教 Collection 的使用方法，存放的对象还原问题
尝试使用Collection存放数组，可以存进去，但是怎么拿出来，还原为数组？

以下的代码在取出的部分报错：

Dim list as Collection

'存放
Dim arr(0 to 2) as String
list.add arr
...

'取出
Dim aa(0 to 2) as String
for i=1 to list.Count
   set aa = list.item(i)‘报错
   debug.print aa(0)
next i

[解决办法]

'存放
Dim arr(0 To 2) As String
For i = 0 To 2
    list.Add arr(i)
Next


'取出
Dim aa(0 To 2) As String
For i = 1 To list.Count
   aa(i - 1) = list.Item(i)
   Debug.Print aa(i - 1)
Next i

[解决办法]
Dim thisCustomer As Object
While list.MoveNext()
thisCustomer = list.Current()
End While
然后再转为STRING
[解决办法]

引用:

尝试使用Collection存放数组，可以存进去，但是怎么拿出来，还原为数组？

以下的代码在取出的部分报错：

Dim list as Collection

'存放
Dim arr(0 to 2) as String
list.add arr
...

'取出
Dim aa(0 to 2) as String
for i=1 to list.Count
   set aa = list.item(i)‘报错
   debug.print aa(0)
next i

Dim list as Collection
set list=new collection
....
[解决办法]
Private Sub Command3_Click()
Dim A(3) As Long
Dim T As New Collection
Dim B() As Long
Dim i As Long

T.Add A

B = T(1)
For i = 0 To 3
Debug.Print B(i)
Next


End Sub