指定フォルダを開く【Shell関数】【ExcelVBA】

構文

Shell (pathname, [windowstyle])

マクロで指定したフォルダを開きます。Shell関数を利用します。
Shell関数は他のプログラムを起動したりする事が出来る関数です。
今回はフォルダのみ(エクスプローラーのみ)開きます。

windowstyleの定数

指定したフォルダを開くサンプルコード

Public Sub sample()

    '■通常サイズで表示
    Shell "C:\Windows\Explorer.exe " & "C:\vba", vbNormalFocus
    
    '■最大サイズで表示
    Shell "C:\Windows\Explorer.exe " & "C:\vba", vbMaximizedFocus
    
    '■フォルダ存在しなければ、マイドキュメントが起動します
    Shell "C:\Windows\Explorer.exe " & "C:\sample"

    '■フォルダ存在しない場合のエラー回避
    Dim sPath As String
    sPath = "C:\vba"
    
    If Dir(sPath, vbDirectory) &　<> "" Then
        Shell "C:\Windows\Explorer.exe" & sPath, vbNormalFocus
    Else
        Debug.Print sPath & "が存在しません"
    End If

End Sub

注意点

• サブフォルダも含めて表示するわけではありません。その場合、FileSystemObjectを使用します。
• “C:\Windows\Explorer.exe “の最後の半角スペースは必須です。
  半角スペースをなくすと実行時エラー ’53’:ファイルが見つかりません。
• ネットワークフォルダを開くことも可能です。
• Shell関数を使わずフォルダを開くことも可能です。
• ファイルダイアログを表示し、ユーザーに選択してもらう場合は下記。
  単一ファイル/複数ファイル/フォルダ

関連記事

• フォルダを削除する【RmDirステートメント】
• フォルダを作成する【MkDirステートメント】
• 「指定フォルダがあるかどうかチェック」処理をパーツ化する
• 「指定フォルダが存在しなければフォルダ作成」処理をパーツ化する
• ファイルまたはフォルダを抽出する【Dir関数】
• 「ファイルを選択して開く」をパーツ化する
• ファイルを削除する【Killステートメント】
• フォルダ内のxlsxファイルに同一処理をするマクロ