EXCEL起動時のエラーチェックについて

ミニミニ 2005-02-04 04:12:10 No: 119428

お世話になります。ミニミニともうします。
ＶＢ6からエクセルを起動するとき、エクセルが起動していて、かつ、
既に同じ名前のファイルが開かれていたらメッセージを出し起動はしない、
そして、同じファイルでなければGetObjectでエクセルファイルを開く
という処理をしたいのですが、既に同じ名前のファイルが開かれているか
という判断の仕方がわかりません。
おわかりの方いらっしゃいましたらお願いいたします。

Set ObjExcelAppli = CreateObject("Excel.Application")
'Excelが起動中の場合エラー発生
If Err.Number <> 0 Then
ここで既に同じ名前のファイルが開かれているか
の判断をする。
End If

特攻隊長まるるう 2005-02-04 17:58:53 No: 119429

一般的に『二重起動』についての処理と呼ばれます。
とりあえず過去ログ検索『重起動』で調べて下さい。

特攻隊長まるるう 2005-02-04 18:07:18 No: 119430

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200412/04120120.txt
過去ログ＜げふ、GetObject しか書いてなかった。失礼しました。
２つのアプローチがあると思います。

まず[指定のファイルが使用中かどうかを調べる]
http://www.bcap.co.jp/hanafusa/VBHLP/excel03.htm

で、GetObject で得られたエクセルアプリケーションに
指定ブック名が含まれているか調べる。

エクセルアプリケーションを複数立ち上げる事も可能なので、
その場合はどう対処されるのでしょうか？上の２つの方法を
組み合わせる必要がありそうですが。