Excelの読込み (ID:79359)

名前

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

本文 こんな感じでどうでしょう。 ただし"C:\Test.xls"があるかどうかの確認等ほかのエラー の可能性をすべて考慮しないとこれでは他のエラーも拾うと思います。 On Error Resume Next Dim mFile As String mFile = "C:\Test.xls" Exl = CreateObject("excel.application") '指定ファイルOpen Rename(mFile, mFile) If Err.Number Then MsgBox(mFile & "はすでに起動中です。") Err.Clear() Exl = Nothing Else Exl.Workbooks.Open(mFile) Exl.Visible = True End If