(Excel VBA) 作業中のブックを含むフォルダを開くマクロ
最近使ったブックからファイルを開いた後に、そのブックがどこにあったかなーって思うとか、分かるけど開くの面倒くさい階層だったりするときに、そのブックを含むフォルダを一発で開けたら楽だと思いませんか。
そこでこのコードです。"\"は半角の"¥"と読み替えて下さい。
Sub OpenContainFolder() ' ** 作業中のブックを含むフォルダを開く ** Dim strCurPath As String strCurPath = ActiveWorkbook.Path & "\" Shell "C:\Windows\Explorer.exe " & strCurPath, vbNormalFocus End Sub