日本語入力ソフトとVBAの覚え書き

・各種日本語入力ソフトの辞書解説 ・ちょっと楽になるExcel VBA集

(Excel VBA) 作業中のブックを含むフォルダを開くマクロ

f:id:dz_dzone:20170724134148j:plain
最近使ったブックからファイルを開いた後に、そのブックがどこにあったかなーって思うとか、分かるけど開くの面倒くさい階層だったりするときに、そのブックを含むフォルダを一発で開けたら楽だと思いませんか。

そこでこのコードです。"\"は半角の"¥"と読み替えて下さい。

Sub OpenContainFolder()
' ** 作業中のブックを含むフォルダを開く **
    Dim strCurPath As String
    strCurPath = ActiveWorkbook.Path & "\"
    Shell "C:\Windows\Explorer.exe " & strCurPath, vbNormalFocus
End Sub