vba Dictionary - 从Items返回KEY()

Question

我有一本字典,每个VALUE字典都是另一本字典.在我的代码中,我循环使用顶级字典.Items()(i).顺便说一句,它需要保持这种方式.

Dim dic As New Scripting.Dictionary
Dim myValue As New Scripting.Dictionary

For i = 0 to dic.count-1
  ' 
  ' the VALUE of the KEY/VALUE pair is...
  set myValue = dic.Items()(i) 
  '
  ' how do I retrieve the KEY???
  '
Next i

我的问题:

如何在此循环结构中检索顶级字典的KEY？这可能是非常明显的,我只是在这里画一个空白.

Answer 1

Sub Tester()

    Dim d, i
    Set d = CreateObject("scripting.dictionary")

    d.Add "K1", "v1"
    d.Add "K2", "v2"
    d.Add "K3", "v3"

    For i = 0 To d.Count - 1
        Debug.Print d.items()(i), d.keys()(i)
    Next i

End Sub

Answer 2

或许这个:

Dim key As Variant

With dic
    For Each key In .Keys
        Debug.Print key, .Item(key)
    Next
End With