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

---

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

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

編集 削除

---

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

編集 削除

---

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 で得られたエクセルアプリケーションに
指定ブック名が含まれているか調べる。

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。