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

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related