Ga naar inhoud

Meer parameters doorgeven aan gecompileerde VBA-code

Standaard ondersteunt de hulpfunctie voor het uitvoeren van gecompileerde VBA-code slechts een 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

De methode PLEvalVBA van het object XLSPadlock neemt twee parameters: de ID van de gecompileerde sub/functie en een enkele parameter Param1.

Om meer parameters door te geven, biedt het object XLSPadlock aanvullende methoden:

  • XLSPadlock.PLEvalVBA2(ID, Param1, Param2) voor twee parameters.
  • XLSPadlock.PLEvalVBA3(ID, Param1, Param2, Param3) voor drie parameters.

Het is ook mogelijk om meer parameters door te geven met behulp van arrays.

Een hulpfunctie om twee parameters door te geven ziet er bijvoorbeeld als volgt uit:

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