vba array to collection code example
Example: vba array to collection
' Converts an array to a collection
Function ArrayToCollection(pArray As Variant) As Collection
Set ArrayToCollection = New Collection
Dim item As Variant
For Each item In pArray
ArrayToCollection.add item
Next item
End Function
' Adds a whole array to provided collection
Sub AddArrayToCollection(ByRef pCollection As Collection, pArray As Variant)
Dim item As Variant
For Each item In pArray
pCollection.add item
Next item
End Sub