Страницы: 1
RSS
Прописать путь к папке через макрос, Вывод диалогового окна
 
Добрый день, уважаемые коллеги!

https://www.planetaexcel.ru/techniques/3/45/
В вышеуказанной статье описано как можно вывести всю информацию по файлам находящимся в папке.
А мне нужно тоже самое но вместо прямого пути до файла я лишь хочу что бы макрос отображал путь в папке после выбора в диалоговом окне. Заранее благодарю.
 
Ну и что, собственно, мешает?
Соблюдение правил форума не освобождает от модераторского произвола
 
Так я не знаю VBA. Начал мучить гугл, он молчит.
 
Код
Sub aaa()
Dim v As Variant
 'открываем диалоговое окно выбора папки
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку или диск"
        .Show
        On Error Resume Next
        Err.Clear
        v = .SelectedItems(1)
        If Err.Number <> 0 Then
            MsgBox "Вы ничего не выбрали!"
            Exit Sub
        End If
    End With
    Dim BrowseFolder As Variant
    BrowseFolder = CStr(v)
    MsgBox BrowseFolder
End Sub
 
Чуть больше вариантов и с пояснениями: Диалоговое окно выбора файлов/папки
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх