Arrays an API-Funktionen übergeben
Veröffentlicht am 04.03.2005
Vielleicht setzen Sie eine eigene VBA-Funktion ein, die ein Array von Elementen als Parameter erwartet. Arrays können Sie auch an API-Funktionen übergeben, indem Sie das erste Element als ByRef-Parameter übergeben.
Hiervon ausgenommen sind lediglich Zeichenketten-Arrays, da die einzelnen String-Elemente unterschiedliche Längen aufweisen.
Die folgende Funktion fnMwstBerechnen erwartet ein Array von Integer-Werten und berechnet die Mehrwertsteuer für jedes Element der Liste:
Declare Function fnMwstBerechnen Lib "Finanz.dll" _
(ByRef intListe As Integer, _
intElemente As Integer) As Long
Public Function fnMwstFürListe()
Dim ret As Long, aryListe(10) As Integer, i As Integer
For i = 1 To 10 ' Array mit Beispieldaten auffüllen
aryListe(i) = i * 4
Next if
' Referenz des ersten Elements übergeben
ret = fnMwstBerechnen(aryListe(1), 10)
End Function