VBA Multi dimensional array in a dictionary

Question

I am trying to store a multi dimensional array in VBA. I added the array to a key but I am not sure how I access it. I need to save an array of three for each key. The main array is a list of 15, 3 dimensional arrays.

Function test22()
  'Instanciate variables
  Set dict = New Scripting.Dictionary
  Dim hello As String
  hello = "Hello world"

  Dim test(0 To 15, 0 To 2) As String
  test(0, 0) = hello
  dict.add "key1", test

  'This line should print Hello World
  Debug.Print dict("key1").Value(0, 0)
End Function

Try declaring a variant and assigning the item to it: myVariable = dict("key1"). You should then be able to use myvariable as an MD array — Absinthe
– Absinthe, Commented Jul 12, 2018 at 15:22

QHarr · Accepted Answer · 2018-07-12 15:18:33Z

1

You want

Debug.Print dict("key1")(0, 0)

dict("key1") will return an array. You then specify the location in that array directly as you would normally.

answered Jul 12, 2018 at 15:18

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

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

11 Comments

User Over a year ago

Thanks for your reply but one more question. Is it possible to store the test 2 dimensional array in a dictionary. But I only want to store the first list in the array. I am trying but I get a wrong dimension error.

QHarr Over a year ago

Please explain a little more. What is the code line that is failing for you?

User Over a year ago

For I = 0 To 15 'Data which should be going in for that key If I < 8 Then keyArray(I, 0) = departmentalData(I) Else keyArray(I, 0) = TBSdata(I - 8) End If keyArray(I, 1) = keys(I, 0) keyArray(I, 2) = keys(I, 1) keyArray(I, 3) = keys(I, 2) dict.Add keys(I, 0) & " " & keys(I, 1) & " " & keys(I, 2), keyArray(I) Next I

User Over a year ago

Sorry the code is formatted really poorly. What I am trying to do is have three attributes combined to make the primary key which is what I use for searching and I want an array of that key broken down.

User Over a year ago

dict.Add keys(I, 0) & " " & keys(I, 1) & " " & keys(I, 2), keyArray(I)

|

Collectives™ on Stack Overflow

VBA Multi dimensional array in a dictionary

1 Answer 1

11 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

11 Comments

Your Answer

Sign up or log in

Post as a guest

Related