ブックのフォルダをエクスプローラで表示する

以下のマクロはブックの保存先をエクスプローラーで表示するマクロです。

クイックアクセスツールバーに登録しておくと地味なようで使ってみると役立つマクロです。

ブックを複数表示している場合、多くの場合はそれぞれのブックは違うフォルダに保存されていることと思います。

また、ショートカットで起動したブックの場合もあったりと、ブックの本体が置いてあるフォルダがどこなのかを記憶に頼ることは多々あります。

このマクロはアクティブブックが保存されているフォルダをエクスプローラで開き、ブックの本体がある場所を明示します。

Sub ReferBook()
    Dim sPath
    
    sPath = ActiveWorkbook.Path
    
    Shell "C:\Windows\Explorer.exe " & sPath, vbNormalFocus
End Sub

Sub ReferBook()

Dim sPath

sPath = ActiveWorkbook.Path

Shell "C:\Windows\Explorer.exe " & sPath, vbNormalFocus

End Sub

4行目のPathプロパティでアクティブブックのファイルパスを取得します。

6行目で、アプリケーションを起動するShell関数を使い、エクスプローラーを起動しています。その際にブックのパスを渡しています。