vba 字典 - 从 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