Как мне вызвать функцию расширения xll из vba?

Редактировать: Есть как минимум два способа сделать это:

Опция 1:Application.Run(...)

Похоже, это лучший способ решить эту проблему, поскольку ваши аргументы автоматически преобразуются в соответствующий тип перед отправкой в ​​функцию XLL.

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

Подробнее см. эта страница.

Вариант 2:Application.ExecuteExcel4Macro(...)

С помощью этого метода вам нужно будет преобразовать любые аргументы в строковый формат, прежде чем передавать их в функцию 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

Подробнее см. эта страница.

Я знаю, что это слишком поздний ответ, но я обнаружил этот альтернативный метод и думаю, что им стоит поделиться. Вы можете объявить сторонние функции так же, как вызов Win32. Это дает дополнительное преимущество, так как отображается в автозавершении Intellisense, когда вы пишете код.

Private Declare Function XLLFunction Lib "C:\PathTo3rdPartyDLL\3rdParty.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