DDE連携が不安定

質問

VB4 + EXCEL97

VB4でシェルでエクセルファイルを起動して
DDE連携で配列の中身をセルに書き込んで行くプログラムを
作ってみたのですが安定せず、
数回に１度しか成功しません。
何故でしょうか？

Dim ファイル名, コマンド,EXCELフルパス
Dim X,Y,Z

DDE_Text.LinkMode = vbNone

　ファイル名 = CurDir & "\EXCEL.xls"
コマンド = EXCELフルパス + Space(2) + ファイル名

Z = Shell(コマンド, 1) ' を起動します。
DDE_Text.LinkTopic = "Excel|SHEET" ' トピックを設定します
DDE_Text.LinkItem = "R1C1" ' アイテムを設定します。

DDE_Text.LinkMode = vbLinkManual ' モードを設定します。
　　　　↑ここでよくエラーが出ます。

For Y = 1 To 10
For X = 1 To 10
DDE_Text.LinkItem = "R" & Y & "C" & X ' アイテムを設定します。
DDE_Text.Text = 二次元配列(Y, X) ' Text プロパティに値を代入します。
DDE_Text.LinkPoke ' セルに値をポークします。
Next X
Next Y

回答No.1

anmochi · ベストアンサー

Excelの起動が完了していないのだと考えられる。

対策としては、Excelを起動したらプロセスを監視して、起動が完了するまで待つ、と言ったところか。

それよりもDDEではなくExcelオブジェクトを使う方が良いと思うけど。

補足

>Excelの起動が完了していないのだと考えられる。

その通りでした。

＞Excelを起動したらプロセスを監視して、起動が完了するまで待つ、と言ったところか。

　どうゆう記述でプロセスを監視するんですか？
　どうやれば、起動完了とみなせますか？

>それよりもDDEではなくExcelオブジェクトを使う方が良いと思うけど。

DDE連携じゃなく、OLE連携って事ですか？

回答No.2

anmochi

> どうゆう記述でプロセスを監視するんですか？
> どうやれば、起動完了とみなせますか？
　私も遠い昔に一度サンプルを作ってみただけなのだが、プロセスのハンドルを取得した後、「シグナル状態になるまで」待てば良かったはず。
　プロセスのハンドルを取得するのはOpenProcessなどをMSDNで確認の事。

> DDE連携じゃなく、OLE連携って事ですか？
　そうやね。Excel97はExcel.Applicationオブジェクトで全機能にアクセスする事ができる。こちらでプログラムを記述する方がスマートで確実だと私は思う。