Public Function CopyVariantArray( _ ByRef rTo() As Variant _ , ByRef vFm() As Variant _ ) As Boolean
Assuming Static avarIn(0 To 45) As Variant avarIn(1) = "Smith" Dim avarOut() As Variant for example CopyVariantArray(avarOut(), avarIn()) = TrueExample #2:
Assuming Static avarIn(0 To 45, 0 To 67) As Variant avarIn(1, 1) = "Smith" Dim avarOut() As Variant for example CopyVariantArray(avarOut(), avarIn()) = TrueSee also:
CopyVariantArrayDirect Function (direct-copy version) CopyVariantVector Function (for one-dimensional arrays) CopyVariantMatrix Function (for two-dimensional arrays) CopyVariantCube Function (for three-dimensional arrays)rTo: Destination array that will receive a copy of array vFm. This function will attempt to re-dimension rTo so that it has the same dimensions as vFm. It will ignore errors during that re-dimension so that rTo can be a Static array. If rTo is Static, it must have the same number of dimensions and dimension bounds as vFm.
Copyright © 1999-2005 Entisoft