Übergabe weiterer Parameter an kompilierten VBA-Code

Standardmäßig unterstützt die Hilfsfunktion zum Ausführen von kompiliertem VBA-Code nur einen Parameter.

Public Function CallXLSPadlockVBA(ID As String, Param1)
    Dim XLSPadlock As Object
    On Error Resume Next
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    CallXLSPadlockVBA = XLSPadlock.PLEvalVBA(ID, Param1)
End Function

Die Methode PLEvalVBA des Objekts XLSPadlock nimmt zwei Parameter entgegen: die ID der kompilierten Sub/Funktion und einen einzelnen Parameter Param1.

Um mehr Parameter zu übergeben, stellt das Objekt XLSPadlock zusätzliche Methoden bereit:

• XLSPadlock.PLEvalVBA2(ID, Param1, Param2) für zwei Parameter.
• XLSPadlock.PLEvalVBA3(ID, Param1, Param2, Param3) für drei Parameter.

Es ist auch möglich, mehr Parameter mithilfe von Arrays zu übergeben.

Eine Hilfsfunktion zur Übergabe von zwei Parametern würde beispielsweise so aussehen:

Public Function CallXLSPadlockVBA2(ID As String, Param1, Param2)
    Dim XLSPadlock As Object
    On Error Resume Next
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    CallXLSPadlockVBA2 = XLSPadlock.PLEvalVBA2(ID, Param1, Param2)
End Function