エクセルで開いているファイルをエクスプローラーで開くマクロ

Excel VBA

今エクセルで開いているファイルをエクスプローラーで開く。
なんで今まで作っていなかったのか謎だ。

Sub OpenWithExploler()
    Shell "explorer.exe /e,/select, " + ActiveWorkbook.FullName, vbNormalFocus
End Sub