Pular para o conteúdo

Passar mais parâmetros para o código VBA compilado

Por padrão, a função auxiliar usada para executar o código VBA compilado aceita apenas um 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

O método PLEvalVBA do objeto XLSPadlock recebe dois parâmetros: o ID do sub/função compilado e um único parâmetro Param1.

Para passar mais parâmetros, o objeto XLSPadlock fornece métodos adicionais:

  • XLSPadlock.PLEvalVBA2(ID, Param1, Param2) para dois parâmetros.
  • XLSPadlock.PLEvalVBA3(ID, Param1, Param2, Param3) para três parâmetros.

Também é possível passar mais parâmetros usando arrays.

Por exemplo, uma função auxiliar para passar dois parâmetros teria 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