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

質問

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

回答No.1

MoguraSE · ベストアンサー

こんにちは。

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

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

お礼

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

回答No.2

DOUGLAS_

こういうことですか？

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

お礼

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