vba - 如何识别对象是集合还是字典？

Question

我有一个嵌套的节点树，它们要么是要么Dictionaries（Collections我无法控制这个结构——它是给我的）。如何将Dictionary节点与分开Collections？

我观察到存在一个IsArray()功能，但没有IsCollection或IsDict()

Answer 1

Sub TestingType()
    Dim col As New Collection
    Dim dic As New Scripting.Dictionary

    Debug.Print TypeName(col)   'Collection
    Debug.Print TypeName(dic)   'Dictionary

End Sub

Answer 2

尝试这样的事情：

If TypeOf YourObjectVariable Is Dictionary Then
    ' ...
ElseIf TypeOf YourObjectVariable Is Collection Then
    ' ...
Else
    ' Handle empty/other types here.
End If

您可以使用类似的东西来控制代码中的执行流程，或者创建自己的 IsCollection() 和 IsDictionary() 函数。