Question

我试图从Excel中的VBA调用DLL中的函数。

我的Excel VBA宏如下所示：

Declare PtrSafe Function TestFunction1 Lib "mylib.dll" (ByVal k As Double) As Double

Public Function TestDll(k As Double) As Double
    Debug.Print ("Start")

    Dim r As Double
    r = TestFunction1(k)

    Debug.Print ("Got result of " + r)
    Debug.Print ("Done")

    TestDll = r
End Function

现在，当我从Excel单元格中调用类似＆＃34; = TestDll（3.0）＆＃34;之类的东西时，它不起作用。我看到＆＃34;开始＆＃34;在即时窗口中的字符串，但没有别的。它就像一个错误正好发生在＆＃34; TestFunction1＆＃34;被称为。 Excel显示＆＃34; #VALUE！＆＃34;在牢房里。

我也可以在调试器中设置一个断点，但是当我进入TestFunction1调用时，它就结束了。我找不到任何错误信息。

我的问题是，我该如何调试？我没有收到任何错误消息。它根本不起作用。我怎样才能弄清楚出了什么问题？

Answer 1

您在调试语句中使用的变量有错误，因此UDF失败。休息很好。实际上，您需要将r转换为字符串或使用&在调试语句中进行连接。

编辑：包含错误处理程序。

Public Function TestDll(k As Double) As Double
    Debug.Print ("Start")

    Dim r       As Double

    '/ Add a error handler
    On Error GoTo errHandler
    '/ Assuming that your testfunction will return 10*parameter
    r = k * 10


    '/ The variable which you are returning,has a error and hence the UDF fails.
    '/ Rest is fine. Here you will get type mismatch error.
    Debug.Print ("Got result of " + r)

    '/ Actually you need to convert it to string or use `&` for concatenation
    Debug.Print ("Got result of " + CStr(r))

    '/ or
    Debug.Print ("Got result of " & r)


    Debug.Print ("Done")

    TestDll = r

errHandler:
    If Err.Number <> 0 Then
        '/ Error trapped and you get actual error desc and number.
        MsgBox Err.Description, vbCritical, Err.Number
    End If

End Function

从Excel Vba

1 个答案: