こんにちは。

Excelが起動しているかどうかのチェックについて
質問なのですが、

Private Sub Output_Excel_cmd_Click()
    On Error Goto er_
    Dim xlApp As excel.Application
    Dim xlBook As excel.Workbook
    Dim xlSheet As excel.Worksheet

　　処理１

    Set xlApp = New excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)

　　処理2
　　Exit Sub

er_:
    MsgBox Err.Description
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

としています。今、処理1でエラーが
出た時、Excelは起動していないのに、
er_:時のxlApp.Quitからの処理が
されるので、さらにエラーが出ます。
この時、xlAppで、Excelが起動している
かどうかを調べる方法はありませんか？
こちらの逆ヘルプ表の"エクセルが既に起動されているか調べる"
を確認したのですが、その1では、エラー�ｂﾅ見て
いますが、現在、処理1でのエラーの為、番号が
429にならない為、使用できませんでした。
その2に関しては、他のExcelファイルが開いている状態で、
exeファイルを実行されてる時には、ちょっと使用できないかなと思いました。
VBみたいに、App.PrevInstanceみたいなのが
あるかなと思い探してみたのですが、分かりませんでした。
お分かりの方教えて下さい。m(_ _)m

起動チェックというか、VBでExcelのインスタンスを作成したかどうかを調べられれば良いんですよね？
それならxlAppオブジェクトの状態を見れば分かると思います。

    If TypeName(xlApp) = "Nothing" Then

僕はいつもこのように行っています。

>takkさん。

早速の返答ありがとうございます。
まさしくその通りでした。起動を見るより
情報を取得できれば良かったのですね。
また、こんな簡単な質問が多々でてくる
と思いますが、その時は、是非よろしくお願い
します。ありがとうございました。m(_ _)m

VB以外からExcelが起動されている場合は問題ないのですか？

>花ちゃんさん。

返答ありがとうございます。
そうです。そのexeを実行中、別のExcelファイルを開いてもらう
のは、問題ありません。あっ、でも新規で開くとどうなるかはまだ
テストしていません。早速テストしてみて、結果報告します。

結果報告しますと、実行中にExcelを開いても問題は
ありませんでした。後、先程言い忘れていましたが、
Excelファイルが開いた状態での実行も問題ありません
でした。