【Excel】ユーザーフォルダを開くマクロとサンプル

Excelからフォルダーを開くマクロが必要になることがあり、いいサンプルコードを見つけたのでメモ。

マクロ

%USERPROFILE%を開く

Sub userprofile_open()
CreateObject("Shell.Application").explore Environ("USERPROFILE")
End Sub

C:/Users/[ユーザー]/AppData/Roaming/Microsoft/Excelを開く

Sub folder_open()
CreateObject("Shell.Application").explore Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Excel"
End Sub

または、CreateObject("Shell.Application").ShellExecuteで開く例

Sub folder_open2()
  Dim target As String
  Dim target1 As String
  Dim target2 As String
  target1 = Environ("USERPROFILE")
  target2 = "\AppData\Roaming\Microsoft\Excel"
  target = target1 & target2
  MsgBox target & " を開きます。"
  CreateObject("Shell.Application").ShellExecute target
End Sub