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類型，這會拋出錯誤消息 *failed to compare two elements...”

最簡單的解決方法： Append 一個&到1 ，這將強制 VBA 將您的常量存儲為Long ：

list.Add 1&, "b"

或者為您的鍵值使用變量：

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