change code to work with multidimensional array

I have the following code (see below). THis code i found on this site stores files in a given directory into an array. What i want to do is change the array and make it multidimensional array so that i can store contents of the array into a column on the work sheet and i read somewhere that it was easier to do this via a multidimensional array...........

so i want to take the contents of this array and use a statement like the following

ws.Range(ws.Cells(1, 7), ws.Cells(ubound(test_array1), 7)).Value = test_array1

or

test_array1=ws.Range(ws.Cells(1, 7), ws.Cells(ubound(test_array1), 7)).Value


to assign or read in array to worksheet

Please Login or Register  to view this content.

ok, i have been doing some reading.......you can only

redim preserve the "last" dimension in a multi-dimensional array so changing this code to a multidimensional array wont work.

any ideas how to get the contents of this array that is in the code to go to a single column on a worksheet?

Awesome!!!!!!!!!!!!!!!!!!! Perfect............thanks. I just checked it and it works great!!!!!!

thanks!!!!!!!!!!!!!

one quick question..........how do i now read the contents of the sheet back into the array?

Please Login or Register  to view this content.

i could not get that to work......i get a type mismatch error............. any ideas?

please check attachment

hi watersev,

in the file you sent the range is horizontal...........i was hoping to take data from a column and put collumn data into array.

but i did not know about the horizontal assignment.........i can use that as well.

Do you know how to do it for a "column" of data?

thanks!

watersev, when i take your previous code and try to then take the array and put the array contents into the work sheet using code below..........only 1 entry gets put in worksheet

Please Login or Register  to view this content.

please check attachment for vertical range layout

Originally Posted by welchs101

watersev, when i take your previous code and try to then take the array and put the array contents into the work sheet using code below..........only 1 entry gets put in worksheet]

Please Login or Register  to view this content.

This shows that you have 1 row of data with some number of columns, example A1:G1

Please Login or Register  to view this content.

Here you determine range starting from M1 and resize it to be one cell M1 (ubound(x)=1). So when you paste X array you get 1 value.
In order to get all array data you need to use Ubound(x,2) instead:

Please Login or Register  to view this content.