読者です 読者をやめる 読者になる 読者になる

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

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

ネタ元