Ir al contenido

Pasar más parámetros al código VBA compilado

De forma predeterminada, la función auxiliar utilizada para ejecutar código VBA compilado admite solo un parámetro.

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

El método PLEvalVBA del objeto XLSPadlock toma dos parámetros: el ID del sub/función compilado y un único parámetro Param1.

Para pasar más parámetros, el objeto XLSPadlock proporciona métodos adicionales:

  • XLSPadlock.PLEvalVBA2(ID, Param1, Param2) para dos parámetros.
  • XLSPadlock.PLEvalVBA3(ID, Param1, Param2, Param3) para tres parámetros.

También es posible pasar más parámetros usando arrays.

Por ejemplo, una función auxiliar para pasar dos parámetros tendría este aspecto:

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