VBA フォルダを開く

■指定したパスのフォルダを開く
※呼び出し元プロシージャ

Sub testopen()
    Dim strPath As String
    strPath = "C:\\デスクトップ\テスト"
    Call openFolder(strPath)
End Sub

※呼び出し先プロシージャ

Sub openFolder(strFolderPath As String)
'--------------------------------------
'機能:指定されたパスのフォルダを開く
'引数1:対象フォルダパス
'--------------------------------------
    Shell "C:\Windows\Explorer.exe " & strFolderPath, vbNormalFocus
End Sub