Salta ai contenuti

Passaggio di più parametri al codice VBA compilato

Per impostazione predefinita, la funzione di supporto utilizzata per eseguire il codice VBA compilato supporta un solo parametro.

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

Il metodo PLEvalVBA dell’oggetto XLSPadlock accetta due parametri: l’ID della sub/funzione compilata e un singolo parametro Param1.

Per passare più parametri, l’oggetto XLSPadlock fornisce metodi aggiuntivi:

  • XLSPadlock.PLEvalVBA2(ID, Param1, Param2) per due parametri.
  • XLSPadlock.PLEvalVBA3(ID, Param1, Param2, Param3) per tre parametri.

È inoltre possibile passare più parametri utilizzando gli array.

Ad esempio, una funzione di supporto per passare due parametri avrebbe questo aspetto:

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