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


ペン  2012-04-18 20:34:30  No: 147563

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


ペン  2012-04-19 00:17:34  No: 147564

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

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-19 01:32:23  No: 147565

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

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


ペン  2012-04-19 01:44:27  No: 147566

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加