Public Function CopyVariantMatrix( _ ByRef rTo() As Variant _ , ByRef vFm() As Variant _ ) As Boolean
rTo vFm +----+----+----+ +----+----+----+ | 12 | 34 | WV | <-- | 12 | 34 | WV | +----+----+----+ +----+----+----+ | 21 | 43 | CA | | 21 | 43 | CA | +----+----+----+ +----+----+----+Example:
Assuming Static avarIn(0 To 45, 0 To 12) As Variant avarIn(1, 1) = "Smith" Dim avarOut() As Variant for example CopyVariantMatrix(avarOut(), avarIn()) = TrueSee also:
CopyVariantMatrixDirect Function (direct-copy version) CopyVariantArray Function (more flexible version) CopyVariantVector Function (for one-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 be two-dimensional and have the same upper and lower bounds as vFm.
Copyright © 1999-2005 Entisoft