Arrays 如何访问字典数组?

Arrays 如何访问字典数组?,arrays,excel,vba,dictionary,Arrays,Excel,Vba,Dictionary,我想使用一组字典来存储Excel工作簿的所有内容,以便以后处理它并在内存中进行操作 我已经定义Excel工作簿的第一行是键,其余的行是内容。因为我有一个键来代表许多值,所以我需要将它们存储在不同的容器中(这将是数组) 内容样本 Code Name Surname 1 a b 2 c d 这段代码创建一个字典数组 当我试图访问数据时,我得到一个错误 我知道它至少在存储值,因为当我使用: debug.print(ubound(aRows)) 在这种情况下,我得到的是值(

我想使用一组字典来存储Excel工作簿的所有内容,以便以后处理它并在内存中进行操作

我已经定义Excel工作簿的第一行是键,其余的行是内容。因为我有一个键来代表许多值,所以我需要将它们存储在不同的容器中(这将是数组)

内容样本

Code Name Surname 1 a b 2 c d 这段代码创建一个字典数组

当我试图访问数据时,我得到一个错误

我知道它至少在存储值,因为当我使用:

debug.print(ubound(aRows))
在这种情况下,我得到的是值(1)

我尝试使用

for each row in aRows
    debug.print(row.key)
next row
然而,这是不被接受的。如何访问数据

另一种选择或者更简单的方法会更好。

可能是这样吗

Dim d, k
For Each d in aRows
    For Each k in d.keys 
        Debug.Print k, d(k),
    Next
    Debug.Print vbCrLf
Next
可能是这个吗

Dim d, k
For Each d in aRows
    For Each k in d.keys 
        Debug.Print k, d(k),
    Next
    Debug.Print vbCrLf
Next
你可以用

Dim myRow as Variant, key as variant
For Each myRow In aRows
    With myRow 
        For Each key In .Keys
            Debug.Print key, .Item(key)
        Next
    End With
Next
你可以用

Dim myRow as Variant, key as variant
For Each myRow In aRows
    With myRow 
        For Each key In .Keys
            Debug.Print key, .Item(key)
        Next
    End With
Next