VBAからDLLをCALLしたいのですが

Question

仕事上今まで蓄積されているFortranプログラムを効率よく使いたくDLL，VB，VBAにチャレンジしていますが，
Intel(R) Fortran Compiler9.0で作成したDLLをEXCELのVBAからCALLしたところ　実行時エラー'49' DLLが正しく呼び出せません　のエラーが表示されました。　このDLLはVisual Basic .NETで作成したVBからは正しくCALLできています。　色々原因を調べているのですがVBAからDLLの呼び出しとDLL内の計算は正しく行われておりDLLからVBAに戻るときにエラーになっているようです。

テストを行っているFortranとVBAのソースは以下です。VBAでDLLをCALL出来るように解決いたしたくご教授願お願いいたします。

(1)---- Fortran ソース ---------------------------
subroutine DLL1(Q,QQ,QQQ)
  ! Expose subroutine DLL1 to users of this DLL
  !
  !DEC$ ATTRIBUTES DLLEXPORT::DLL1
  !DEC$ ATTRIBUTES ALIAS:'DLL1'::DLL1
  ! Variables
  ! Body of DLL1
   real*4 Q,QQ,QQQ
   QQ  = Q*2
   QQQ = Q**3
end subroutine DLL1

(2)----------- VBA ソース --------------------
    Private Q As Single
    Private QQ As Single
    Private QQQ As Single
    Declare Sub DLL1 Lib "DLL1.dll" (ByRef Q As Single, ByRef QQ As Single, ByRef QQQ As Single)

Sub Macro1()
    ChDrive ActiveWorkbook.Path
    ChDir ActiveWorkbook.Path
Q = 2#
        Call DLL1(Q, QQ, QQQ)
Cells(5, 2) = Format(Q, "#####.#0")
Cells(6, 2) = Format(QQ, "#####.#0")
Cells(7, 2) = Format(QQQ, "#####.#0")
End Sub

kurinkurinkurin · Accepted Answer

#3, #4 です。
あまり意図が伝わらなかったようなので、再度。
dllは、作成する時点で、呼び出し規約が確定し
VB.NETは、cdecl 呼び出し規約用に作成されたdllを扱えますが
VBAは、stdcall 呼び出し規約用に作成されたdllしか扱えません。

すなわち、VB.NETで動いたからVBAで動くとは必ずしもいえない
ということです。

そこで、私自身は、Fortranは扱ったことがありませんが、
#4のサイトに従えば、
!DEC$ ATTRIBUTES DLLEXPORT::DLL1
!DEC$ ATTRIBUTES ALIAS:'DLL1'::DLL1
を
!DEC$ ATTRIBUTES DLLEXPORT,STDCALL::DLL1
!DEC$ ATTRIBUTES ALIAS:'DLL1'::DLL1
にして、dllをリコンパイルすれば、stdcall呼び出し規約用dllとして
コンパイルできるので、使えるだろうということです。

kurinkurinkurin · Answer

#3,4,7 です。

QQ,QQQだけでなく、たぶん、Qもdll内で
もし変更するようにしたら、Qの変更も
VBA側に反映されていないでしょう。

Fortranは、みたこともなく、全然わかりませんが、
googleで検索して
http://www.ae.utexas.edu/lrc/fortran/intel/f_ug1/pgwpasar.htm
を見る限り、
ByRefで呼ぶ場合は、Fortran側でその旨、指示する必要があり
たぶん
!DEC$ ATTRIBUTES REFERENCE :: Q
!DEC$ ATTRIBUTES REFERENCE :: QQ
!DEC$ ATTRIBUTES REFERENCE :: QQQ
が必要でしょう。

dsuekichi · Answer

ANo 2です。

> 値渡しと参照渡しでまだとり違いがあるのでしょうか。

ANo.4さんの提示されたページにちゃんと書いてありますよね？

--------------------------------------------------------------
II.サブルーチンのエクスポート
呼出し規約としてSTDCALLを指定した場合，
実数型および整数型の引数は基本的に値渡し
(仮引数は実引数のコピーであり，関数内部で仮引数を変更しても実引数には影響がない．)
となる．
--------------------------------------------------------------
で、対応方法も書いてますよね・・・

junbei · Answer

＃５です。

> regsvr32を実行したところ『DllregiSterserverエントリポイントが> 見つかりませんでした』の
> メッセージでDLLが登録されなかったようです。
> (ここでつまづいたので先は未実施です)。
> DLLの作成に問題ありでしょうか？
その可能性が高いのかなぁ・・・
でもVB.NETではCall出来ているというし、、、(←間違いないですよね？？)

> 尚、教えていただいた上記VBA構文を実行したところ
> コンパイルエラーとなりましたので元に戻しました。
DLLのレジスト(regsvr32)および参照設定が行えておりませんので、これはコンパイルエラーに
なります。(当初私が想定した理由とは別の理由ですが・・・)
※as New ～ ではなく、CreateObjectする方法もありますが、いずれにせよDLLレジストが必要です。

ちなみに、一番初めにご提示いただいた状態のVBAソースで
　　Q = 2#
のところを
　　Q = 2!
　　QQ = 0!
　　QQQ = 0!
としても、「実行時エラー'49' DLLが正しく呼び出せません」のままでしょうか？

junbei · Answer

＃１です。
「ロギングしている？」とは「Fortran側関数内で通過確認のログ(時分秒など)を出力しているのかな？」という意味です。

> VBAでエラーになったときデバッグモードでステートメントCALL DLL1(Q,QQ,QQQ) の
> 変数Q、QQ、QQQの上にカーソルを重ねるとそのDLLで計算された数値が表示されました
とは、「Call DLL1(Q, QQ, QQQ)」の行が黄色い時のことですか？
デバッガで行が黄色いのは「これからその行を実行しますよ」という意味なので、まだそのステートメントは(完全には)実行されていません。

ごみが残っている場合なども考えられますので、マウスポインタを重ねた状態で変数に値が入っているから、DLLの実行が完了しているとは言い切れないと思います。


まずは以下を試してみてください。

・(＃２さんも言っていますが)Fortran側関数の引数は間違いなくSingle型(なんというのか分かりませんが、Fortranで言うところの単精度浮動少数型)ですか？
・[スタート]-[ファイル名を指定して実行]から「regserv32 C:\aaa\bbb\hogehoge.dll」を実行してください。(Fortranで作成した該当DLLを配置しているフルパスに読み替えてください。)
・VBAの参照設定から、hogehogeをチェックしてOKを押してください。(既にチェックが付いていたり、参照不可になっていたら、一度はずしてOKを押してから、再度参照設定を開いてやり直してください。)
・VBAの書き方を以下のように変更してみてください。(いろいろ怪しい部分があります。。。)
－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Q As Single
Private QQ As Single
Private QQQ As Single

Sub Macro1()
    Dim oFortran As New hogehoge.hogehoge 'もしかしたら「As New DLL1」や「As New hogehoge」、「As New hogehoge.DLL1」かも(もしコンパイルが通らない場合は元の記述に戻して結構です。Declareも)

    '変数は初期化してから使いましょう(初期化しなくても動作保障されるのは使えるのはVBぐらいです。他言語を呼ぶ以上これはお作法です。)
    Q = 2! '#はDouble型の型宣言文字です。←これがいちばん怪しい気がする。。。
    QQ = 0!
    QQQ = 0!
    Call oFortran.DLL1(Q, QQ, QQQ)
    Cells(5, 2) = Format(Q, "#####.#0")
    Cells(6, 2) = Format(QQ, "#####.#0")
    Cells(7, 2) = Format(QQQ, "#####.#0")
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－

kurinkurinkurin · Answer

#3 です。　すいません。　#3は、間違った指摘ですね。
忘れてください。

やはり、呼び出し規約に問題があると思われ
http://rakasaka.fc2web.com/propath/prodll_export.html
が参考になると思います。

kurinkurinkurin · Answer

おそらくDll1.dllのパス指定が足りません。
フルパス指定するか、Dll1.dllをExcel.exeと同じフォルダに
置かないといけません。 xlsファイルと同じところにおいても
認識されません。 あくまで実行ファイルはExcel.exeです。

dsuekichi · Answer

> 実行時エラー'49' DLLが正しく呼び出せません　
は、VBAのヘルプにあるように、主に、

・引数の数が間違っている場合
・引数の型が間違っている場合
・DLLが、StdCall 呼び出し規約に従って作成されていない場合

に発生します。

FortranのDLL作成方法は詳しくありませんが、この辺り大丈夫でしょうか？

また、
> Visual Basic .NETで作成したVBからは正しくCALLできています。
とのことですが、VB.NETでは、どういう宣言を行って、どうやってCallしているのでしょう？
＃VB.NETのコードも提示してください。

junbei · Answer

> VBAからDLLの呼び出しとDLL内の計算は正しく行われており
間違いなく事実ですか？(根拠は？DLL内でロギングしているとか？？)

単純に参照設定されていないとか、regserv32されていないとかではないですか・・・？
(個人的には呼び出しがうまくいっていないんじゃないのかなぁと思うんですが・・・)


＃自分はシステム屋で業務でVBAは使うので得意ですが、Fortranは全くの素人です。

VBAからDLLをCALLしたいのですが

#3, #4 です。

この回答への補足

#3,4,7 です。

ANo 2です。

＃５です。

この回答への補足

＃１です。

この回答への補足

#3 です。

この回答への補足

おそらくDll1.dllのパス指定が足りません。

> 実行時エラー'49' DLLが正しく呼び出せません

この回答への補足

> VBAからDLLの呼び出しとDLL内の計算は正しく行われており

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

> 実行時エラー'49' DLLが正しく呼び出せません　