Выбор файла или папки

Задача:  выбрать конкретный файл или папку

Способ решения:


Sub ВыборФайла()
With Application.FileDialog(msoFileDialogFilePicker)
   .Title = "Заголовок окна"
   .ButtonName = "Показать путь к файлу"
   .Show
   On Error Resume Next
  MsgBox "Был выбран файл " & .SelectedItems(1)
End With
End Sub

Sub ВыборПапки()
With Application.FileDialog(msoFileDialogFolderPicker)
   .Title = "Заголовок окна"
   .ButtonName = "Показать путь к папке"
   .Show
   On Error Resume Next
  MsgBox "Была выбрана папка " & .SelectedItems(1)
End With
End Sub

Примечание: вместо строки MsgBox...  можно (и нужно) использовать код для обработки полного имени файла или полного пути к папке.

Больше информации