E
EG
hi,
i got the fct below from Microsoft (this is to copy/paste
data from an ADODB recordset to Excel sheet).
Thing is that memory usage keeps growing each time I use
the function till the fatal msg "Not enough memory
available..."
I think this has to do with memory not being released once
the array has been used.
The 'Erase' doesn't work, the 'Nothing' either...
Tks to help,
Eric/
Function fct_TransposeDim(v As Variant) As Variant
' Custom Function to Transpose a 0-based array (v)
Dim X As Long, Y As Long, Xupper As Long, Yupper As
Long
Dim tempArray As Variant
Xupper = UBound(v, 2)
Yupper = UBound(v, 1)
ReDim tempArray(Xupper, Yupper)
For X = 0 To Xupper
For Y = 0 To Yupper
tempArray(X, Y) = v(Y, X)
Next Y
Next X
fct_TransposeDim = tempArray
Erase tempArray
'tempArray = Nothing
End Function
i got the fct below from Microsoft (this is to copy/paste
data from an ADODB recordset to Excel sheet).
Thing is that memory usage keeps growing each time I use
the function till the fatal msg "Not enough memory
available..."
I think this has to do with memory not being released once
the array has been used.
The 'Erase' doesn't work, the 'Nothing' either...
Tks to help,
Eric/
Function fct_TransposeDim(v As Variant) As Variant
' Custom Function to Transpose a 0-based array (v)
Dim X As Long, Y As Long, Xupper As Long, Yupper As
Long
Dim tempArray As Variant
Xupper = UBound(v, 2)
Yupper = UBound(v, 1)
ReDim tempArray(Xupper, Yupper)
For X = 0 To Xupper
For Y = 0 To Yupper
tempArray(X, Y) = v(Y, X)
Next Y
Next X
fct_TransposeDim = tempArray
Erase tempArray
'tempArray = Nothing
End Function