Pase la matriz a ParamArray
¿Es posible pasar todos los elementos de una matriz a un ParamArray?
Por ejemplo, me gustaría pasar un ParamArray a otro ParamArray:
Sub test()
p1 "test", "banane", "birne"
End Sub
Sub p1(ParamArray keys() As Variant)
p2 keys 'should be the same as: p2 "test", "banane", "birne"
End Sub
Sub p2(ParamArray keys() As Variant)
Dim key As Variant
For Each key In keys
Debug.Print key 'Run-time error '13' Type mismatch (key is an array)
Next key
End Sub
En este caso ParamArray dep2
no contiene los elementos dekeys
, pero obtiene el objeto-matrizkeys
. Por lo tanto, tengo que verificar, si se pasa una matriz:
Sub test()
p1 "test", "banane", "birne"
p2 "test", "banane", "birne"
End Sub
Sub p1(ParamArray keys() As Variant)
p2 keys
End Sub
Sub p2(ParamArray params() As Variant)
Dim keys As Variant
If IsArray(params(0)) Then
keys = params(0)
Else
keys = params
End If
Dim key As Variant
For Each key In keys
Debug.Print key
Next key
End Sub
Pero esto es incómodo, por ejemplo, en comparación con Java:
public class VarArgs {
public static void main(String[] args) {
p1("test", "banane", "birne");
p2("test", "banane", "birne");
String[] array = {"test", "banane", "birne"};
p1(array);
p2(array);
}
public static void p1(String... strings) {
p2(strings);
}
public static void p2(String... strings) {
for (String string : strings) {
System.out.println(string);
}
}
}
En Java no tengo que distinguir. Pero esto probablemente no sea posible en VBA.
Gracias por la ayuda,
Miguel