在 VBA 中将项目添加到后期绑定的 SortedList

Question

我熟悉在 VBA 中使用字典，但我想尝试使用 SortedList。我通读了msdn doc 并认为它使用与字典相同的.Add 结构。

我一直在努力实际填充 SortedList。我不确定我在做什么与this answer 和How to make a list in VBA (not a dictionary)? 有什么不同。 我将 VTC 我自己的问题作为重复，但不知何故它不是一回事。

我正在使用一个简单的列表：

这是代码 -

Option Explicit

Sub testing()

    Dim sortList As Object
    Dim dict As Object
    Set sortList = CreateObject("System.Collections.SortedList")
    Set dict = CreateObject("Scripting.Dictionary")
    Dim i As Long
    Dim key As Variant
    Dim item As Variant

    For i = 1 To 7
        key = Sheet1.Cells(i, 1)
        item = Sheet1.Cells(i, 2)
        dict.Add key, item
        sortList.Add key, item
    Next

End Sub

我什至采取了额外的步骤（以防万一）并制作了 Variant 的所有内容，因为我知道 SortedList 想要 Objects。

我似乎无法从 SortList 中检索任何内容

我错过了什么？

我正在尝试以检索字典的方式检索它

For Each key In sortList.keys
    Sheet1.Cells(i, 6) = key
    Sheet1.Cells(i, 7) = sortList.item(key)
Next

Answer 1

我从 SortedList 中以错误的方式获取键和项目

For i = 0 To sortList.Count - 1
    key = sortList.getkey(i)
    item = sortList.item(key)
    Sheet1.Cells(i + 1, 6) = key
    Sheet1.Cells(i + 1, 7) = item
Next

与字典中的不同 -

i = 1
For Each key In dict
    Sheet1.Cells(i, 6) = key
    Sheet1.Cells(i, 7) = dict(key)
    i = i + 1
Next