VBでExcelが起動されているか知りたい
環境
winXP
Office2000 Excel
VB6.0 sp5
VBからExcelが起動されているか知りたいのです。
【状況1】
[a.xls]を起動している状態で下記を実行すると問題なく起動が確認できます。
【状況2】
[a.xls][b.xls]を起動してて[b.xls]が前面にある場合は下記を実行しても[a.xls]を探せません。
またウインドウを最大化にしていない場合も"Microsoft Excel -"という文言がいらない?せいか探せません。
[FindWindowEx]を使用すればできるのかと思いましたがイマイチ使い方が分からず困っています。
よろしくお願いします。
'sampleソース---------------------------------------------
hwnd = FindWindow("XLMAIN", "Microsoft Excel - a.xls")
If hwnd = 0 Then
Msgbox(" 0 は、Excel が起動していないことを示します。")
Else
Msgbox(" 起動中")
End If
'sampleソース---------------------------------------------
お礼
有難う御座います。 すでに対応済みです。