arrays - 如何访问字典数组？

Question

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

我已经定义 Excel 工作簿的第一行是键，其余行是内容。由于我对许多值都有一个键，因此我需要将它们存储在不同的容器中(这将是数组)。

内容样本

Code Name Surname1    a     b2    c     d

The code:

For Each rcell In ws.UsedRange.Cells
   If rcell.Row > 1 Then
        ReDim Preserve aRows(rcell.Row - 2)
        'Set aRows(rcell.Row - 2) = CreateObject("scripting.dictionary")
        Set pInfo = New Scripting.Dictionary
        pInfo.Add Key:=Cells(1, rcell.Column).Value, Item:=rcell.Value
        'aRows(rcell.Row - 2).Add Key:=Cells(1, rcell.Column).Value, Item:=rcell.Value
        Set aRows(rcell.Row - 2) = pInfo
    End If
Next rcell

此代码创建一个字典数组。

当我尝试访问数据时出现错误。

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

debug.print(ubound(aRows))

在这种情况下，我得到了值 (1)。

我尝试使用

for each row in aRows
    debug.print(row.key)
next row

但是，这不被接受。我如何访问数据？

替代方案或更简单的东西会很棒。

Answer 1

可能是这个？

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