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

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

下一个结束子