将脚本字典值分配给数组时，类型不匹配

Question

您好，这可能是一个简单的语法错误，但是我试图使用存储在脚本字典（早期绑定）中的变体/字符串数组。我尝试了几种方法（使用键将其移动到tmp数组，然后使用键直接从字典中调用值）。

目标是用用户选择的文本文件中的标题填充表单中的树形列表。将值分配给字典或将键用作列表的父级没有问题。

Private Sub UserForm_Activate()
    Dim varKey As Variant
    Dim tmpVals() As Variant
    Dim i As Long
    Dim tmpStr As String

For Each varKey In dictFhdrs.keys()

Debug.Print Len(varKey)
   tmpStr = Right(varKey, Len(varKey) - InStrRev(varKey, "\", -1, vbTextCompare) - 1)
   TreeView1.Nodes.Add Key:=varKey, Text:=tmpStr



   tmpVals = dictFhdrs(varKey) 'error here




    For i = LBound(tmpVals) To UBound(tmpVals)
        TreeView1.Nodes.Add varKey, tvwChild, CStr(varKey & tmpVals(i)), CStr(tmpVals(i))

    Next

下一个 结束