Shell関数を使わずフォルダを開く【FollowHyperlink】【ExcelVBA】

Shell関数で指定フォルダや共有サーバーのフォルダを開く、サブフォルダを開くことも可能です。
上記は全て、Shell関数を使用しています。
Shell関数を使用せずフォルダを開く場合は、FollowHyperlinkで可能です。

Shell関数を使わずフォルダを開くサンプルコード

Public Sub sample()

    '■tmp(C:\vba)のフォルダを開く
    Dim tmp As String: tmp = "C:\vba"
    ThisWorkbook.FollowHyperlink tmp
    
    '■フォルダが存在しなければ、エラー発生。
    '実行時エラー432
    'オートメーションの操作中にファイル名またはクラス名を見つけられませんでした
End Sub

注意点

• ハイパーリンク機能(FollowHyperlink )を使用して、フォルダを開くようにしています。

関連記事

• 「指定フォルダがあるかどうかチェック」処理をパーツ化する
• ネットワークフォルダを開く【Shell関数】
• 指定フォルダを開く【Shell関数】
• サブフォルダを開く【Shell関数】