ExcelVBA Windowsのエクスプローラーで特定フォルダを開き確認する方法

以下のようなシーンで利用されます。

1.ユーザーに指定したフォルダを表示させたい。

2.ファイルの保存先や出力先のフォルダを簡単に確認したい。

3.自動処理後に生成されたファイルが保存されたフォルダをすぐに開きたい。

Option Explicit

Sub OpenFolder()
    Dim folderPath As String
    folderPath = "C:\Users\User\Desktop\sourceFile" ' 開きたいフォルダのパスを指定

    ' フォルダが存在するか確認
    If Dir(folderPath, vbDirectory) <> "" Then
        Shell "explorer.exe " & folderPath, vbNormalFocus ' フォルダを開く
    Else
        MsgBox "フォルダが見つかりません: " & folderPath, vbExclamation
    End If
End Sub

ユーザーにフォルダを選択させて、そのフォルダを開く

Option Explicit

Sub OpenSelectedFolder()
    Dim folderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "フォルダを選択してください"
        If .Show = -1 Then ' フォルダが選択された場合
            folderPath = .SelectedItems(1)
            Shell "explorer.exe " & folderPath, vbNormalFocus
        Else
            MsgBox "フォルダが選択されませんでした", vbExclamation
        End If
    End With
End Sub

一部のセキュリティポリシーでは Shell が使用できない場合があります。

フォルダの作成や削除などを組み合わせることで、さらに自動化の幅を広げることが可能です。処理完了後にフォルダを開くことで、ユーザーの利便性を向上できます。

これを活用すれば、フォルダ操作がスムーズになり、業務の効率化に役立ちます。