カテゴリー
SugiBlog ホームページ制作・システム開発｜大阪
19
2012/03

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

ACCESS
2012-03-19 10:10 午前 - 更新:2012-12-19 4:53 午後
この記事は最終更新日から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
0
この記事がお役に立ちましたらシェアお願いします
,,,,
22,489 views
≪ ≫

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

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

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

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

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

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

      0

関連する投稿