Excel VBAからのDLL関数呼び出しのトラブルシューティング

Question

ExcelのVBAから関数をDLLから呼び出そうとしています。このような

マイエクセル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 

今

私は "= TestDll（3.0）" のようなものでExcelのセルからそれを呼び出したとき、それは動作しません。私は、直接のウィンドウに "Start"という文字列を表示しますが、それ以外は表示されません。 「TestFunction1」が呼び出されているときにエラーが発生しているようです。 Excelに「＃VALUE」と表示されます。細胞内で

デバッガでブレークポイントを設定することもできますが、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