【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

サンプル

以下のより上記のマクロを組み込んだsample.xlsmをダウンロードできます。

sample.zip（16KB)

参考サイト

Link

301 Moved Permanently

http://www.excel.studio-kazu.jp/kw/20150206131724.html