掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エクセルが開いているかどうかを確認するには？ (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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.