フォルダを開くダイアログを表示する

---

フォルダを開くダイアログを表示する

Sub Sample16()

'フォルダ選択の画面を表示
With Application.FileDialog(msoFileDialogFolderPicker)

.Show

'ダイアログでフォルダへのパスを表示します。
MsgBox "選択したフォルダは「" & .SelectedItems(1) & "」です"

End With

End Sub

エクセルＶＢＡテクニック集トップ

---