嵌套集合，访问元素类型不匹配

Question

我有两个集合，第二个集合在第一个集合中。但是当我尝试访问第二个集合的元素时，我收到Type mismatch错误。

Sub testColls()
Dim coll1 As Collection
Dim coll2 As Collection

Set coll1 = New Collection
Set coll2 = New Collection

coll2.Add ("dog")
coll1.Add ("cat")

coll1.Add coll2

Dim temp As String
temp = coll1(1)(1)
MsgBox (temp)

End Sub

为什么会出现这个错误？ coll1(1)获取第二个集合，coll（1）（1）`应该给第二个集合的第一个元素。

Answer 1

而不是

temp = coll1(1)(1)

使用

temp = coll1(2)(1)

使用coll1(2)(1)会dog而coll1(1)将会cat。

为了提高可读性，您可以coll1.Item(2).Item(1)使用coll1(2)(1)，coll1.Item(1)使用coll1(1)