R
R Avery
in the below code, both UDFs work if NUM_CHARS=100, but
the first one fails and the 2nd one succeeds if NUM_CHARS=1000.
The critical limit turns out to be 255. How do i make UDFs that return
arrays (with mixed string/date/double data) with strings that have more
than 255 chars? Is the only way to truncate all the strings to 255
chars?
Private Const NUM_CHARS As Long = 100
Public Function HOHO() As Variant
Dim v
ReDim v(0, 0) As Variant
v(0, 0) = String$(NUM_CHARS, "a")
HOHO = v
End Function
Public Function HOHO2() As Variant
Dim v As Variant
v = String$(NUM_CHARS, "a")
HOHO2 = v
End Function
the first one fails and the 2nd one succeeds if NUM_CHARS=1000.
The critical limit turns out to be 255. How do i make UDFs that return
arrays (with mixed string/date/double data) with strings that have more
than 255 chars? Is the only way to truncate all the strings to 255
chars?
Private Const NUM_CHARS As Long = 100
Public Function HOHO() As Variant
Dim v
ReDim v(0, 0) As Variant
v(0, 0) = String$(NUM_CHARS, "a")
HOHO = v
End Function
Public Function HOHO2() As Variant
Dim v As Variant
v = String$(NUM_CHARS, "a")
HOHO2 = v
End Function