Passar matriz para ParamArray
é possível passar todos os elementos de uma matriz para um ParamArray?
Por exemplo, eu gostaria de passar um ParamArray para outro 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
Neste caso, ParamArray dep2
não contém os elementos dekeys
, mas obtém o objeto de matrizkeys
. Portanto, eu tenho que verificar se uma matriz é passada:
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
Mas isso é estranho, por exemplo, comparado ao 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);
}
}
}
Em Java, não preciso distinguir. Mas isso provavelmente não é possível no VBA.
Obrigado pela ajuda,
Michael