VBAでフォルダを開く

質問

Excel2003で、VBAで指定フォルダを開く場合に
myFol = "D:\aaa"
Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus
これで開きますが、環境変数HOMEを指定することはできないでしょうか？

回答No.1

eden3616 · ベストアンサー

環境変数の名前を調べて一致した場合に値を取り出します。

Sub Sample()
　　Dim myFol As String
　　Dim environmentString As String
　　Dim i As Long
　　Dim hit As Integer
　　i = 1
　　Do
　　　　environmentString = Environ(i)
　　　　hit = InStr(1, UCase(environmentString), "=")
　　　　If Left(UCase(environmentString), hit - 1) = "HOME" Then
　　　　　　myFol = Mid(environmentString, hit, Len(environmentString))
　　　　　　Exit Do
　　　　End If
　　　　i = i + 1
　　Loop Until Environ(i) = ""
　　Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus
End Sub

お礼

直接指定するのではないのですね。
ありがとうございました。