求教 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

[Tiger_Zhao]

'存放
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

[lliai]

Dim thisCustomer As Object While list.MoveNext() thisCustomer = list.Current() End While 然后再转为STRING

[比特灵]

[quote=引用 2 楼 photel123456 的回复:] 怎么转化为String? 我是想把一个个的数组存到list中，不是数组中的一个个字符串。 既: 存的是数组对象，怎么做对象还原？ 谢谢两位。

[worldy]

引用 楼主 bigc2001 的回复:

尝试使用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 ....

[worldy]

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

[比特灵]

原来可以不用转换，可以直接用： list.Item(i)(0) list.Item(i)(1) 习惯用JAVA的思维了。 多谢各位回复