Adding a dictionary to array

Question

I'd like to go through list in Excel and assign the values to dictionary. The the dictionary will be put into list. This will happen until the cells in the column are blank. As a result of entire function, the array of dictionaries will be returned.

 Function CreateArrayofDicts()
    Dim catlist As Variant
    Dim catparams() As Variant
    Dim ChartParamsDict As Dictionary
    Dim k As Long
    catlist = ArrayProblemsCat()

    i = 1

    Do Until IsEmpty(Cells(i, 1))
        Set ChartParamsDict = New Scripting.Dictionary
        For j = 0 To UBound(catlist)
            Debug.Print Cells(i, 1)
            If Cells(i, 1) = catlist(j) Then
                Debug.Print 5
                ChartParamsDict.Add Key:="Cells(1,2)", Item:=Cells(i, 2)
                ChartParamsDict.Add Key:="Cells(1,3)", Item:=Cells(i, 3)
                ChartParamsDict.Add Key:="Cells(1,4)", Item:=Cells(i, 4)

                ReDim Preserve catparams(k)
                catparams(k) = ChartParamsDict ' issues is here
                k = k + 1
                Debug.Print ChartParamsDict
            End If

        Next j



    i = i + 1
    Loop
    CreateArrayofDicts = catparams
End Function

What is your question though? Are you having a problem with your code? Your are missing Set on the problem line. Also you are mixing up catlist and catparams — Tim Williams
– Tim Williams, Commented May 16, 2020 at 19:28
Thanks for the advice. Indeed I mixed them, but after adding Set it works fine — Frankie
– Frankie, Commented May 16, 2020 at 19:33

Tim Williams · Accepted Answer · 2020-05-16 20:58:59Z

1

Your are missing Set on the problem line.

Set catparams(k) = ChartParamsDict

answered May 16, 2020 at 20:58

Tim Williams

169k8 gold badges104 silver badges143 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Adding a dictionary to array

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related