VBAからフォルダを選択させるためのダイアログを表示する方法はいくつかあるが、
FileDIalogオブジェクトを使用する方法が一番使いやすと思われる。
(WSH ”Shell.BrowseForFolder” の方がダイアログの見た目が良いが
初期パスを渡すと、それ以上の階層が表示されなくなるので使いづらい。)
Sub subTest()
Dim dlgFolder as office.FileDialog
Dim iRes as Integer
Set dlgFolder = Application.FileDialog(msoFileDialogFolderPicker)
dlgFolder.AllowMultiSelect = False
dlgFolder.InitialFileName = "c:\"
iRes = dlgFolder.Show
If iRes = -1 then
msgbox dlgFolder.SelectedItem(1)
End If
End Sub
PR