Copy Array Values Between Arrays in Your VBA Projects

Version Compatibility: Visual Basic 6

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Public Sub CopyArray(SourceArray As Variant, _ DestArray As Variant, _ Optional startingpoint As Long = 1, Optional numberofvalues As Long = 0) ' Based on code at http://www.freevbcode.com/ShowCode.asp?ID=2873 ' startingpoint = starting point in source array. ' numberofvalues = number of elements of the array to copy from source to dest array. ' Rules: ' 0. Input Variant SourceArray and DestArray params must be arrays, otherwise the Sub() ' exits with nothing done. Either may, however, be passed in with a length of 0 (ie, Ubound = 0) ' 1. All values in dest array are wiped out unless the operation exited due to exit conditions ' as mentioned below. ' 2. Dest array is returned the same size of the source array or whatever the length of the ' numberofvalues is, if that is > 0. ' 3. Dest array never has trailing empty array values unless they are part of the coopyable ' values from the source array. ' 4. If startingpoint > length of source array, operation exits without changes to the dest array ' 5. If numberofvalues = 0, then all values from the source array starting from startingpoint ' to the end of the source array are copied into the dest array. ' 6. If startingpoint + numberofvalues > length of the source array when numberofvalues > 0, then ' the operation exits without changes to the dest array. ' 7. If startingpoint < 1 or numberofvalues < 0, these are adjusted back to their default values. ' 8. If source array length is 0, then the dest array will be 0 after this Sub is done.