Excelの読込み (ID:79358)

名前

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

本文 oku様ありがとうございます。 ＶＢレスキュ−（花ちゃん）のサイトを見させていただきました。 ＶＢレスキュ−に表示されていたように試してみたのですが、 読み取りExcelを起動後に実行した時のErr.Numberと 読み取りExcelを起動しないで実行した時のErr.Numberは 両方とも"０"でした。これでは2重起動なのか判断つきません。 Excelの2重起動防止方法をご存知の方どうかよろしくお願いします。 その時のソースです。 Exl = CreateObject("excel.application") ' If Err.Number Then MsgBox("Excel が起動されていません。") ' エラーが発生した場合は Err オブジェクトをクリアします。 Err.Clear() Else MsgBox("Excel はすでに起動中です。") End If Exl.Visible = False '指定ファイルOpen Exl.Workbooks.Open("ファイルのパス") If Err.Number Then MsgBox("Excel が起動されていません。") ' エラーが発生した場合は Err オブジェクトをクリアします。 Err.Clear() Else MsgBox("Excel はすでに起動中です。") End If ※APIの方は試していませんが、上記の方法ではできないのでしょうか？ （過去に痛い経験あるのであまりAPIは使用したくないのですが・・・）