「処理を終えてファイルを保存したパス」を開く

Excelで何某かの集計をして、その結果を保存するところまでをマクロで作りこむのは、よくあることで。

保存したファイルを開いて確認したい、メールに添付したい等々の理由から、
保存先フォルダをExplorerで開くことがよくある。

一々開くのがあまりにも面倒だったので、最近は保存後に、保存先を開くか
どうか確認するようにしている。

Sub Sample()
    Dim FolderPath As String
        FolderPath = "C:\temp"

    ' 何某かの処理。
    
    
    ' 処理完了。

    Dim MsgboxResult As VbMsgBoxResult
        MsgboxResult = MsgBox("ファイル作成完了です。" & vbNewLine & "保存先のフォルダを開きますか？", vbYesNo)
        If MsgboxResult = vbYes Then
            Shell "explorer.exe " & FolderPath, vbNormalFocus
        End If
End Sub

「はい」を選べば、保存先が開かれる。

個人的に、地味に重宝してます。

参考まで。