カテゴリー
SugiBlog Webデザイナー・プログラマーのためのお役立ちTips

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
この記事がお役に立ちましたらシェアお願いします
, , , ,
28,216 views
≪ ≫

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

  1. あん より:
    2017年11月23日 17:11:49

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

    • K.Sugimoto より:
      2017年11月24日 9:28:27

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

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

関連する投稿