カテゴリー
SugiBlog ホームページ制作・システム開発|大阪

ACCESSからExcelファイルが開いているか調べる

この記事は最終更新日から1年以上経過しています。
Dim xlApp   As Object
Dim xlBook  As Object

Dim FileName   As String

FileName = Environ("USERPROFILE") & "\デスクトップ\sample.xls"

Set xlApp   = CreateObject("Excel.Application")
Set xlBook  = xlApp.Workbooks.Open(FileName)

If xlBook.ReadOnly Then
    MsgBox "開いています。"
Else
    MsgBox "開いていません。"
End If

xlBook.Close

xlApp.Application.Quit

Set xlBook = Nothing
Set xlApp = Nothing

この記事がお役に立ちましたらシェアお願いします

15,534 views

“ACCESSからExcelファイルが開いているか調べる” への2件のフィードバック

  1. あん より:

    environのUSERPROFILEには何を入力するのですか?

    • K.Sugimoto より:

      コメントありがとうございます。
      Environ(“USERPROFILE”)のUSERPROFILEは、例ではありませんのでそのままお使い頂けます。

      Environはシステム環境変数の値を取得する関数になり、
      Environ(“USERPROFILE”)はUSERPROFILEというシステム環境変数の値を返します。