エクセルが開いているかどうかを確認するには？

ペン 2012-04-18 11:34:30 No: 147563 IP: [192.*.*.*]

ｖｓ２００５について質問があります。
ｖｓ２００５のｖｂプログラムで、エクセルが開いているかどうかの
確認するには、どうしたらいいのでしょうか？
エクセルは、指定したファイルを確認するのではなく、単純にエクセル
そのものが開いているかの確認する方法です。
すみませんが、わかる方いたらお願いします。
まことにすみません。

編集削除

ペン 2012-04-18 15:17:34 No: 147564 IP: [192.*.*.*]

以下のような感じでエクセルが開いているかの確認プログラムを書いてみましたが、エクセルが開いているか否かにかかわらず、Err.Number は、０で返ってきます。

function SaveResult(ByRef NAME As String) As Object
    On Error Resume Next
    xlsApp = GetObject( , "Excel.Application")
    If Err.Number = 0 Then
        xlsApp = CreateObject("Excel.Application")
        xlsApp.Application.Visible = True
    End If
    xlsBook = xlsApp.ActiveWorkbook
    xlssheet = xlsBook.Sheets.Add

    If Err.Number <> 0 Then
  xlsBook = xlsApp.Workbooks.Add
  xlssheet = xlsBook.ActiveSheet
    End If
    xlssheet.NAME = NAME
    Call SebdData1Excel(xlssheet)
    SaveResult = xlssheet

    On Error GoTo 0

End Function

編集削除

ポポン 2012-04-18 16:32:23 No: 147565 IP: [192.*.*.*]

VB2005を使っているのなら、On Errorなんて古い構文を使うのはやめた方がいいですよ。

Try
xlsApp = GetObject(, "Excel.Application")
Catch ex As Exception
xlsApp = CreateObject("Excel.Application")
End Try

編集削除

ペン 2012-04-18 16:44:27 No: 147566 IP: [192.*.*.*]

ありがとうございました。
早速やってみます。

編集削除