ネットワークフォルダを開く【Shell関数】【ExcelVBA】

Shell関数で指定フォルダを開くことは可能です。
ネットワークの共有フォルダの場合も、同じくShell関数で開くことが可能です。
今回はネットワークのフォルダだけを開くだけです。

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

Public Sub sample()

    '■通常サイズで表示(IPアドレスで指定)
    Shell "C:\Windows\Explorer.exe " & "\\192.168.50.100\home", vbNormalFocus
    
    '■最大サイズで表示(サーバー名で指定)
    Shell "C:\Windows\Explorer.exe " & "\\server\home", vbMaximizedFocus
    
    '■フォルダ存在しなければ、マイドキュメントを表示
    Shell "C:\Windows\Explorer.exe " & "\\server\home1"

End Sub

windowstyleの定数

注意点

• “C:\Windows\Explorer.exe “の最後の半角スペースは必須です。
  半角スペースをなくすと実行時エラー ’53’:ファイルが見つかりません。
• 共有フォルダへのアクセス権がなければ、フォルダが存在しない扱いになります。

関連記事

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