Dynamic MultiDimentional Array

[j0se]

I'm hoping somebody can help me with this:

I want to create an array inside the loop to record 2 sets of data: a name, and a number.

I don't know how many records the loop will run through, hence I need the array to be dynamic.

If anybody can help me out with some code, I would be most pleased


Thanks

 

[rubbernilly]

Dimension the array as dynamic:

Dim MyArray() as [Type]

Then, in your loop, use Redim Preserve and a counter to get your upper bound:

dim a as long
dim MyArray() as Long

a = 0
Do
redim preserve MyArray(a)
MyArray(a) = a
a = a+1
Loop Until a = 100
debug.print Join(MyArray,vbcrlf)

 

[j0se]

thanks

thank you!

that works great!