19
2012/03
12-03-19 10:10 AM - 更新:12-12-19 4:53 PM この記事は最終更新日から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
この記事がお役に立ちましたらシェアお願いします
20,554 views
ま様
ご指摘ありがとうございます。
XPまで対応のツール... (18/06/22)
environのUSERPROFILEには何を入力するのですか？
コメントありがとうございます。
Environ(“USERPROFILE”)のUSERPROFILEは、例ではありませんのでそのままお使い頂けます。
Environはシステム環境変数の値を取得する関数になり、
Environ(“USERPROFILE”)はUSERPROFILEというシステム環境変数の値を返します。