エクセルが開いているかどうかを確認するには？ (ID:147564)

名前

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

本文 以下のような感じでエクセルが開いているかの確認プログラムを書いてみましたが、エクセルが開いているか否かにかかわらず、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