エクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： MoguraSE 回答日時： 2009/06/07 18:30

こんにちは。

こういうものですか？
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

この回答へのお礼

そのとうりです。非常に助かりました。勉強になりました。ありがとうございました。

お礼日時：2009/06/07 21:13

No.2 回答者： DOUGLAS_ 回答日時： 2009/06/07 20:28

　こういうことですか？

Sub Test()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "D:\hoge\"
If .Show = True Then
MsgBox .SelectedItems(1)
End If
End With
End Sub

この回答へのお礼

そのとうりです。非常に助かりました。ありがとうございました。

お礼日時：2009/06/07 21:12