arrays - 是否可以将字典添加到 Excel VBA 中的数组？

Question

我试图弄清楚这是否有可能就excel的能力而言。在我正在尝试做的事情中考虑以下代码:

Dim some_text, split_text() As String
Dim some_array_dict() As String 'This is the array to store the dictionaries
Dim some_dict As Dictionary 'The dictionaries that I'll be storing in the array above

ReDim some_array_dict(y) As String 'y is previously defined as an integer

For i = 0 To y - 1
    Set some_dict = New Dictionary

    some_text = some_array(2, i)
    split_text = Split(some_text, " ")
    
    For j = 0 To UBound(split_text)
        some_dict.Add split_text(j), 1
    Next j
    
    some_array_dict(i) = some_dict 'Issue
    
    Debug.Print some_array_dict(i) 'For debugging purposes
Next i

以下是给我错误的代码行:

some_array_dict(i) = some_dict

有人能帮忙吗？

Answer 1

数组被声明为错误类型，需要使用 Set分配对象时

Sub Tester()

    Dim arr_dict() As Object, x As Long

    ReDim arr_dict(1 To 3)
    For x = 1 To 3

        Set arr_dict(x) = CreateObject("scripting.dictionary")

        With arr_dict(x)
            .Add "hello", 1
            .Add "there", 2
        End With

    Next x

End Sub