- ACCESS
-
2012-03-19
この記事は最終更新日から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
environのUSERPROFILEには何を入力するのですか?
コメントありがとうございます。
Environ(“USERPROFILE”)のUSERPROFILEは、例ではありませんのでそのままお使い頂けます。
Environはシステム環境変数の値を取得する関数になり、
Environ(“USERPROFILE”)はUSERPROFILEというシステム環境変数の値を返します。