VBA将项目添加到SortedList会导致“自动化错误”

Question

为什么以下代码会导致错误：-2146233079（80131509）。

Sub testSortedList()
    Dim list
    Set list = CreateObject("System.Collections.SortedList")
    list.Add 1978340499, "a"
    list.Add 1, "b"
End Sub

Answer 1

它们的列表的键必须具有相同的数据类型。您添加了两种不同的数据类型，第一种是类型long，类型integer的第二个，这会引发错误消息 *无法比较两个元素...

”解决：将＆amp;附加到1，这将迫使VBA将您的常数存储为long：

list.Add 1&, "b"

或为键使用变量值：

Dim key as Long
key = 1
list.Add key, "b"