Як показати діалог вибору папки

[rUs_LAN]

мені потрібен діалог в результаті який повертає шлях до папки яку вибрав користувач. Шось приблизно такого
[code]
Private Sub CommandButton1_Click()
Dim s As Variant
s = Application.GetOpenFilename
browse.Text = s
End Sub

(це для файлів)

[EducatedFool]

Sub OpenExcelFile()

    LoadFileName = Application.GetOpenFilename("Файлы Excel (*.xls),*.xls", , "Выберите нужный файл", , False)
    If Not Right(LoadFileName, 4) = ".xls" Then Exit Sub     ' если пользователь отказался от выбора файла

    Dim ExcelFile As Workbook

    Set ExcelFile = Workbooks.Open(LoadFileName)    ' пытаемся открыть выбранный файл
    If ExcelFile Is Nothing Then MsgBox "Не удалось открыть файл " & LoadFileName, vbCritical, "Ошибка": Exit Sub    ' если не удалось открыть выбранный файл

    ' работаем с файлом
    ExcelFile.Worksheets(1).Cells(1, 1) = ExcelFile.Name    ' записываем имя файла в первую ячейку первого листа

    ExcelFile.Close True    ' закрываем файл с сохранением изменений
End Sub

[rUs_LAN]

дякую але мені потрібно діалог вибору папки а не файлу
тобто я хочу в якісь змінній мати адресу папки (в якій здійснюється пошук екселівських файлів і потім їх відкриття і наступних операцій над ними). Що немає аналогу s = Application.GetOpenFilename
було б логічно s=Application.GetOpenFoldername але я такого не найшов

[valerij]

Сообщение от rUs_LAN

дякую але мені потрібно діалог вибору папки а не файлу

А ты пиши на понятном, Русском языке........

З. Ы.
Судя по имени, Руслан:
относится к группе имен: мусульманские имена, но не как, не к украинскому!!

Иностранец, блин...

[rUs_LAN]

як зробити таку задачу
при віткритті книги відображається форма .show на зразок майстра в якій
треба задати папку для пошуку файів *.хлс. Потім за допомогою стандартних і нестандартних)) функцій вба знаходяться адреси файлів потім почергово ексель їх відкриває і шукає необхідний текст і видає результат про кількість знайдених фрагментів і місце їх розміщення.

пишіть свої думки як це можна зробити. основні функції і т.п. поможіть хто шо знає))

[КаМММ]

В выбираемой папке всёравно будут лежать файлы экселя.
Выбирай любой, а потом отрезай его имя и останется путь к папке.
Я лично так делаю.
И темку "Избавится от лишних манипуляций" глянь.
Там какраз есть выбор нужных файлов из папки.
Потом просто допишешь что с ними делать и всё.

[EducatedFool]

Выбор папки:

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String
    GetFolderPath = "": PS = Application.PathSeparator
    With Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
        If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
    End With
End Function

Sub test()
    ' например, так:
    MsgBox GetFolderPath
    'или так:
    MsgBox GetFolderPath("Выберите папку с нужными файлами", "C:\WINDOWS\system32\")
End Sub

[rUs_LAN]

дуже дякую!!
тема закрита