Comment appeler une fonction xll addin de vba?

J'ai un 3ème partie XLL addin j'aimerais conclure dans ma propre fonction vba. Comment pourrais-je appeler la 3ème partie de la fonction à partir de mon code?

Grâce

source d'informationauteur Dane O'Connor

  1. 23

    Edit: Il y a au moins deux façons de faire cela:

    Option 1: Application.Run(...)

    Cela ressemble à la meilleure façon d'aller à ce sujet, car vos arguments sont automatiquement converties en un type approprié avant d'être envoyé à la fonction XLL.

    Public Function myVBAFunction(A as Integer, B as String, C as Double)
    myVBAFunction = Application.Run("XLLFunction", A, B, C)
End Sub

    Voir cette page pour plus de détails.

    Option 2: Application.ExecuteExcel4Macro(...)

    Avec cette méthode, vous aurez à convertir tous les arguments en format de chaîne de caractères avant de les transmettre à la fonction XLL.

    Public Function myVBAFunction(A as Integer, B as String, C as Double)
    dim macroCall as String
    macroCall = "XLLFunction(" & A
    macroCall = macroCall & "," & Chr(34) & B & Chr(34)
    macroCall = macroCall & "," & C
    macroCall = macroCall & ")"
    myVBAFunction = Application.ExecuteExcel4Macro(macroCall)
End Sub

    Voir cette page pour plus de détails.

  2. 13

    Je sais que c'est un moyen de réponse tardive, mais j'ai découvert cette méthode et pense que c'est le partage de la valeur. Vous pouvez déclarer la 3ème partie fonctions de la même manière qu'un Win32 appel. Cela a l'avantage de se montrer dans l'Intellisense achèvement lorsque vous êtes le codage.

    Private Declare Function XLLFunction Lib "C:\PathTo3rdPartyDLLrdParty.xll" (ByVal A as Integer, ByVal B as String, C as Double) As Double

Sub Function myVBAFunction(A as Integer, B as String, C as Double) as Double
    myVBAFunction = XLLFunction(A, B, C)
End Sub