vba - 运行时错误 '13' : Type Mismatch, 从字典访问值时

Question

我已经为键值对列表创建了一个字典。其中 key 应该是 string，Value 部分应该是 arrayList。当我在字典中添加键和值时，它工作正常，但是当我尝试将值作为 arrayList 获取时，它给出运行时错误“13”

   Dim myValue As Dictionary
   Dim inrArrLstVal As Object
   Dim arrLstStor as Object

   Set myValue = New Dictionary
   Set arrLstStor = CreateObject("System.Collections.ArrayList")
   Set inrArrLstVal = CreateObject("System.Collections.ArrayList")

   myValue.Add searchpart, inrArrLstVal   ''' searchpart is string
   arrLstStor = myValue .Items(searchpart) ''' This gives type Mismatch Error '13'.

谁能告诉我为什么会出现这样的错误以及我如何获得值(value)。

Answer 1

Sub testarrlst()

    Dim dc As Scripting.Dictionary
    Dim inrArrLstVal As Object
    Dim arrLstStor As Object

    Set dc = New Scripting.Dictionary
    Set inrArrLstVal = CreateObject("System.Collections.ArrayList")

    dc.Add "test", inrArrLstVal
    Set arrLstStor = dc.Item("test")

    Debug.Print TypeName(arrLstStor)

End Sub