ExcelVBAで特定のフォルダを開く

Sub Test()
 Dim myFol As String
 myFol = ThisWorkbook.Path & "¥hoge¥"
 Shell "C:¥Windows¥Explorer.exe " & myFol, vbNormalFocus
End Sub

ネタ元

• http://hinekure.vba-soft.com/?eid=270237

すぐわかるExcelマクロ＆VBAマネして使えるサンプル集　Excel　2013／2010／2007／立山秀利【2500円以上送料無料】