Truncation of stored data array

[jfklbj]

I have arrays that I store with the following type statement:

Names.Add name:="StoredUnits", RefersTo:=TotalUnits

Later, when I need the data I recall the array like this:

TotalUnits = [StoredUnits]

The only problem is that the data truncates at 256 array items. Is there any practical way around this without writing to a worksheet?

TIA

 

[xenou]

What are you storing in the array and how are you using it? You can store values in array variables:

Sub Foo()
'//array with 65536 elements
Dim x() As Variant
For y = 0 To 65535
    ReDim Preserve x(0 To y)
    x(y) = y
Next y
End Sub

 

[Legacy 68668]

I have arrays that I store with the following type statement:

Names.Add name:="StoredUnits", RefersTo:=TotalUnits

Later, when I need the data I recall the array like this:

TotalUnits = [StoredUnits]

The only problem is that the data truncates at 256 array items. Is there any practical way around this without writing to a worksheet?

TIA

If you have random elements and such like more than 30, writing the code for that without using Excel sheet is not practical.

If you have elements already in the range, you could write like

Dim myArray
myArray = Sheets("Sheet1").Range("a1:a10000").Value

No loop required.
But, it will be always a 1 Based 2D array, so you will need to loop like

For i = 1 To UBound(myArray, 1)
    MsgBox myArray(i, 1)
Next

 

[jfklbj]

Thanks for the responses. I think I can work out a solution.