EXCELVBAでフォルダーを選択してもらうサンプルマクロ

Sub ユーザーにフォルダーを選択してもらう()

　Dim dlg As FileDialog
　Dim fold_path As String

　Set dlg = Application.FileDialog(msoFileDialogFolderPicker)

　'キャンセルボタンクリック時にマクロを終了
　If dlg.Show = False Then Exit Sub

　'フォルダーのフルパスを変数に格納
　fold_path = dlg.SelectedItems(1)

　MsgBox fold_path

End Sub

ネタ元

• http://officetanaka.net/excel/vba/tips/tips39.htm
• http://www.relief.jp/itnote/archives/excel-vba-select-folder.php