VBA: sub calling another sub multiple times and array structures

[Archangelos]

I have the following procedure that calls another procedure multiple times.

Sub OneSubCallingAnotherSubMultipleTimes()    
    Call uuCustomTpNames("11221", "H", "BWA", "BWA 1")
    Call uuCustomTpNames("11547", "V", "BWA", "BWA 2")
    Call uuCustomTpNames("11483", "H", "PBL", "PBL 1")
    Call uuCustomTpNames("11497", "V", "GFD", "GFD 1")
    
End Sub

No matter what the procedure "uuCustomTpNames" does, the question is: can I make an array data structure, insert a number of records and write the call command one time only?

I am thinking of something like the following.

Make ArrayDataStructure (string1, string2, string3, string4)

Insert ArrayDataStructure ("11221", "H", "BWA", "BWA 1")
Insert ArrayDataStructure("11547", "V", "BWA", "BWA 2")
Insert ArrayDataStructure("11483", "H", "PBL", "PBL 1")
Insert ArrayDataStructure("11497", "V", "GFD", "GFD 1")

For all records in ArrayDataStructure
Call uuCustomTpNames (string1, string2, string3, string4)

 

[dmt32]

Hi,
in the code you are calling just declare an argument with ParamArray keyword.
A ParamArray allows you to provide dynamic number of arguments to your procedure of any data type including objects.

Sub uuCustomTpNames(ParamArray Elements() As Variant)
Dim Element As Variant
For Each Element In Elements
    MsgBox Element
Next
End Sub

ParamArray must be defined as Variant datatype is always zero based and is not effected by the Option Base statement.

Sub OneSubPassingMulitpleArguments()
    Call uuCustomTpNames("11221", "H", "BWA", "BWA 1", _
                         "11547", "V", "BWA", "BWA 2", _
                         "11483", "H", "PBL", "PBL 1", _
                         "11497", "V", "GFD", "GFD 1")
End Sub

Dave

 

[Archangelos]

Interesting, I will test it.

How can I add elements to a ParamArray variant?
I suppose there is a way to count the elements of a ParamArray or delete either part or all of them. I have to google it.

Thanks dmt32.