Passing an array of any data type as an argument to a procedure

[Cosmos75]

I have the following code.

[B]Sub [COLOR="Blue"]CreateArray[/COLOR]()[/B]
Dim lngArray(1 To 10) As Long
Dim i As Long
For i = LBound(lngArray) To UBound(lngArray)
    lngArray(i) = i
Next i
DebugPrintArray lngArray()
[B]End Sub[/B]

[B]Sub [COLOR="blue"]DebugPrintArray[/COLOR](AnArray() As Long)[/B]
Dim i As Long
For i = LBound(AnArray) To UBound(AnArray)
    Debug.Print "AnArray (" & i & ") = " & AnArray(i)
Next i
[B]End Sub[/B]

But I would like to be able to have a DebugPrintArray() function that can handle an array of any data type. I've looked around and I think that you can only pass arrays of the exact same data type.

[COLOR="Green"]'This will not work.[/COLOR]
[B]Sub [COLOR="blue"]DebugPrintArray[/COLOR](AnArray() As [COLOR="Red"]Variant[/COLOR])[/B]
....

Does anyone know of a way around this?


Related Links
ACC2000: How to Pass an Array as an Argument to a Procedure
Type Mismatch: Array or User Defined Type Expected

 

[FlyerMike]

You could try a class module.

The array would have class scope, as opposed to the life of the original routine.

It worked in my test.

-Mike

 

[Cosmos75]

Found the answer. I have to declare the array argument as a VARIANT variable, not as a VARIANT array.

Sub DebugPrintArray(AnArray As [B][COLOR="Blue"]Variant[/COLOR][/B])
Dim i As Long
For i = LBound(AnArray) To UBound(AnArray)
    Debug.Print "AnArray (" & i & ") = " & AnArray(i)
Next i
End Sub