Окно выбора папки vba excel

Хитрости »

17 Июнь 2015              147491 просмотров

Диалоговое окно выбора файлов/папки

Часто при работе с файлами и написании кодов начинающие «кодить» в VBA сталкиваются с необходимостью предоставить пользователю возможность самостоятельного выбора файлов: либо всех в указанной папке, либо каких-то отдельных. Конечно, можно жестко в коде написать нечто вроде: «C:DocumentsFilesКнига1.xls», но это требует не только наличия именно диска С, но и полной структуры папок и имен файлов. Это очень неудобно в большинстве случаев и куда чаще необходимо дать пользователю возможность самому указать имя файла. Записывать в ячейку листа полный путь и имя весьма непрактично и часто для неискушенного пользователя вызывает только «отторжение» от программы. В статье Просмотреть все файлы в папке я приводил пример кода, который просматривает все файлы в указанной папке и папка при этом выбирается сами пользователем из привычного по работе с Windows диалога. Там используется диалог выбора папок. Именно на этом я и хочу сделать акцент в этой статье — рассказать про некоторые способы вызова подобных диалогов для выбора файлов или папки. Так же обращу внимание на некоторые вещи, которые следует учитывать при использовании того или иного типа диалогов.

• Диалог выбора файлов Applicaton.GetOpenFileName
• Диалог выбора файлов FileDialog(msoFileDialogFilePicker)
• Диалог выбора папки FileDialog(msoFileDialogFolderPicker)
• Диалог выбора папки через Shell
• Диалог сохранения файла SaveAs

Если рассматривать наиболее простые варианты, то их два. Выбрать файлы можно через Applicaton.GetOpenFileName или через Application.FileDialog. Отличия в них есть, но я заострю внимание на главном: GetOpenFileName будет работать в любой версии Excel, а класс FileDialog только начиная с Excel 2002, т.к. именно в этой версии впервые был использован класс FileDialog. Это стоит учитывать при разработке.

Диалог выбора файлов Applicaton.GetOpenFileName

Параметры:

Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
По сути я часто использую именно его, т.к. это универсальный метод и в нем есть все, что лично мне необходимо: выбрать определенные типы файлов позволяет, возможность запрета выбора нескольких файлов сразу есть.

avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", 2, _
     "Выбрать текстовые или Excel файлы", , True)

avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", 2, _
     "Выбрать текстовые или Excel файлы", , False)

avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", 2, _
     "Выбрать текстовые или Excel файлы", , True)

Пример применения диалога Application.GetOpenFilename

Sub ShowGetOpenDialod()
    Dim avFiles
    'по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb)
    avFiles = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файлы", , False)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If
    'avFiles - примет тип String
    MsgBox "Выбран файл: '" & avFiles & "'", vbInformation, "www.excel-vba.ru"
End Sub

В данном случае совершенно неважно указан ли выбор только одного файла или нескольких. Может поменяться только способ обработки полученного результата. Если параметр MultiSelect установлен в False, то переменная avFiles примет тип String, т.е. это будет одна строка. Предположим, что была выбрана книга Excel. Тогда открыть её можно будет как обычно это делается при использовании переменной:

Если же параметр MultiSelect установлен в True, то переменная avFiles примет тип Array — массив строк, в котором будут записаны все пути и имена выбранных файлов. Обрабатывать в таком случае следует циклом:

'avFiles - примет тип Array
    For Each x In avFiles
        Workbooks.Open x
    Next

В приложенном к статье файле приведены две процедуры с использованием этого типа диалога и обработкой файлов с параметром MultiSelect, установленным в True и False.

 
Диалог выбора файлов FileDialog(msoFileDialogFilePicker)

У этого диалога тоже есть параметры и они очень схожи с таковыми в Application.GetOpenFilename:
Ниже в статье примера кода с применением всех описанных параметров

.Filters.Add "Excel files", "*.xls*;*.xla*", 1 'добавляем возможность выбора файлов Excel
.Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов

.InitialFileName = "С:Temp"

.InitialFileName = "С:TempКнига1.xlsx"

For Each x In .SelectedItems
    Workbooks.Open x
Next

For lf = 1 to .SelectedItems.Count
    x = .SelectedItems(lf)
    Workbooks.Open x
Next

If .Show = 0 Then Exit Sub 'была нажата кнопка отмены

Пример вызова диалога выбора файлов:

Sub ShowFileDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        .Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 2 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
        .InitialFileName = "С:TempКнига1.xlsx" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            Workbooks.Open x 'открытие книги
            'можно также без х
            'Workbooks.Open .SelectedItems(lf)
        Next
    End With
End Sub

 
Диалог выбора папки

Диалог выбора папки необходим в случаях, когда файлов в папке много и обработать нужно все эти файлы. Пример такой обработки я уже выкладывал в статье Просмотреть все файлы в папке. Здесь проще всего использовать появившийся в 2002 Excel диалог Application.FileDialog. Его параметры практически такие же, как у Application.FileDialog(msoFileDialogFilePicker) только их меньше доступно для применения:

.InitialFileName = "С:Temp"

If .Show = 0 Then Exit Sub 'была нажата кнопка отмены

Пример вызова диалога выбора папки:

Sub ShowFolderDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выбрать папку с отчетами" '"заголовок окна диалога
        .ButtonName = "Выбрать папку"
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .InitialFileName = "C:Temp" '"назначаем первую папку отображения
        .InitialView = msoFileDialogViewLargeIcons 'вид диалогового окна(доступно 9 вариантов)
        If .Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        x = .SelectedItems(1) 'считываем путь к папке
        MsgBox "Выбрана папка: '" & x & "'", vbInformation, "www.excel-vba.ru"
    End With
End Sub

 
Диалог выбора папки через Shell

Диалог Application.FileDialog(msoFileDialogFolderPicker) всем хорош и удобен, кроме одного: как я уже упоминал, он стал доступен из VBA только начиная с 2002 Excel. Плюс, описанные выше диалоги не работают в Outlook — он просто лишен хоть какой-либо реализации выбора папок или файлов. Поэтому дополню статью еще одним вариантом показа диалога выбора папки — с помощью объекта Shell. Этот вариант выбора папки будет работать и в Outlook и в любом другом приложении.

Shell.BrowseForFolder([Hwnd], [sTitle], [iOptions], [vRootFolder])

Пример вызова диалога выбора папки через Shell:

Sub GetFolderDialog_Shell()
    On Error Resume Next
    Dim objShellApp As Object, objFolder As Object, ulFlags
    Dim x As String
    Set objShellApp = CreateObject("Shell.Application")
    'ulFlags - числовой код, определяющий вид отображаемого окна и некоторые параметры
    '    ulFlags = 0     - наиболее часто применяемый. Лучше использовать всегда именно 0
    '    ulFlags = 1     - не отображать Корзину
    '    ulFlags = 2     - не включать сетевые папки
    '    ulFlags = 20    - добавляется тестовое поле с отображением имени выбранной папки
    '    ulFlags = 16    - отображать EditBox для ввода полного пути с клавиатуры
    '    ulFlags = 16384 - можно так же выбирать файлы.
    'Некоторые константы можно комбинировать. Например если указать 1 + 16384 - то можно будет выбирать файлы
 
    ulFlags = 0
    Set objFolder = objShellApp.BrowseForFolder(0, "Выбрать папку с отчетами", ulFlags, "C:Temp")'"
    x = objFolder.Self.Path 'записываем в переменную путь к папке
    If Err.Number <> 0 Then
        MsgBox "Папка не выбрана!", vbInformation, "www.excel-vba.ru"
    Else
        MsgBox "Выбрана папка: '" & x & "'", vbInformation, "www.excel-vba.ru"
    End If
End Sub

Конечно, диалог подобный выглядит довольно убого, особенно на современных операционных системах. Но он работает в любых версиях офиса и в любом приложении, в том числе в Outlook. Порой это бывает полезней красоты.

Скачать пример:

  Tips_Macro_GetOpenFileFolder.xls (100,0 KiB, 3 740 скачиваний)

 
Диалог сохранения файла SaveAs

Еще один вид диалогового окна — запрос имени и места сохранения файла.
Параметры:

Application.GetSaveAsFilename([InitialFileName], [FileFilter], [FilterIndex], [Title], [ButtonText])
Универсальный диалог, работающий во всех версиях Excel, начиная с 2000

sToSavePath = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path)

sToSavePath = Application.GetSaveAsFilename(InitialFileName:="SaveAs.xlsm", FileFilter:="Excel files (*.xlsm), *.xlsm")

avFiles = Application.GetSaveAsFilename _
    (InitialFileName:=ThisWorkbook.Path, FileFilter:="Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", FilterIndex:=2)

Что еще важно знать: сам по себе вызов диалога GetSaveAsFilename ничего не сохраняет — он только создает путь для сохраняемого файла. Сохранять придется принудительно после выбора места и имени.
Пример применения диалога Application.GetSaveAsFilename

Sub ShowGetSaveAsDialod()
    Dim sToSavePath
    sToSavePath = Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Path, _
             FileFilter:="Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt", _
             FilterIndex:=2, _
             Title:="Сохранить файл")
    'если нажали Отмена - завершаем процедуру ничего не сохраняя
    If VarType(sToSavePath) = vbBoolean Then
        Exit Sub
    End If
    'непосредственно сохранение файла
    ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=ThisWorkbook.FileFormat
End Sub

Здесь тоже есть нюанс — метод SaveAs имеет два важных аргумента:
1. Filename — путь и имя сохраняемого файла. Здесь должно быть все понятно. Указываем то, что выбрали в диалоге.
2. FileFormat — формат сохраняемого файла. При этом не текстовое представление(как в диалоге «xls» или «txt»), а одна из предустановленных констант формата файла. Вот основные константы:

Пример использования констант в диалогах Application.GetSaveAsFilename
Сохраняем файл с форматом xlsm — файл с поддержкой макросов. Для этого ищем в таблице выше расширение xlsm и берем либо константу Excel либо числовую константу:

Sub ShowGetSaveAsDialod()
    Dim sToSavePath
    sToSavePath = Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Path & "Report.xlsm", _
             FileFilter:="Excel files(*.xlsm),*.xlsm")
    'если нажали Отмена - завершаем процедуру ничего не сохраняя
    If VarType(sToSavePath) = vbBoolean Then
        Exit Sub
    End If
    'непосредственно сохранение файла
    'используем встроенную константу Excel
    ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    'используем числовую константу
    'ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=52
End Sub

Любой метод: либо числовая константа, либо встроенная работают одинаково. Вопрос лишь в том, что лично для Вас будет удобнее и нагляднее.

Так же см.:
Работа с диалогами
Как запретить сообщения?

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
(при этом можно указать стартовую папку для поиска файла, и тип/расширение выбираемого файла)

Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.

Функция GetFolderPath работает также, только служит для вывода диалогового окна выбора папки.

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _

                       Optional ByVal InitialPath As String = "c:") As String

    ' функция выводит диалоговое окно выбора папки с заголовком Title,

    ' начиная обзор диска с папки InitialPath

    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора

    Dim PS As String: PS = Application.PathSeparator

    With Application.FileDialog(msoFileDialogFolderPicker)

        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS

        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath

        If .Show <> -1 Then Exit Function

        GetFolderPath = .SelectedItems(1)

        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS

    End With

End Function

Sub ПримерИспользования_GetFolderPath()

    ПутьКПапке = GetFolderPath("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя папки

    If ПутьКПапке = "" Then Exit Sub    ' выход, если пользователь отказался от выбора папки

    MsgBox "Выбрана папка: " & ПутьКПапке, vbInformation

End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _

                     Optional ByVal InitialPath As String = "c:", _

                     Optional ByVal FilterDescription As String = "Книги Excel", _

                     Optional ByVal FilterExtention As String = "*.xls*") As String

    ' функция выводит диалоговое окно выбора файла с заголовком Title,

    ' начиная обзор диска с папки InitialPath

    ' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора

    ' для фильтра можно указать описание и расширение выбираемых файлов

    On Error Resume Next

    With Application.FileDialog(msoFileDialogOpen)

        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath

        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention

        If .Show <> -1 Then Exit Function

        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator

    End With

End Function

Sub ПримерИспользования_GetFilePath()

    ИмяФайла = GetFilePath("Выберите файл Word", , "Документы Word", "*.doc") ' запрашиваем имя файла

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла

    MsgBox "Выбран файл: " & ИмяФайла, vbInformation

End Sub

Ниже представлены функции для вызова диалоговых окон выбора файлов и папок средствами VBA.

Функции GetFileName и GetFilePath по сути аналогичны, и предназначены для вывода диалогового окна выбора файла
(при этом можно указать стартовую папку для поиска файла, и типрасширение выбираемого файла)

Функция GetFilenamesCollection позволяет выборать сразу несколько файлов в одной папке.

Функция GetFolderPath работает аналогично, только служит для вывода диалогового окна выбора папки.

Function GetFileName(Optional ByVal Title As String = "Выберите файл для обработки", _

                     Optional ByVal InitialPath, _

                     Optional ByVal MyFilter As String = "Книги Excel (*.xls*),") As String

    ' функция выводит диалоговое окно выбора папки с заголовком Title,

    ' начиная обзор диска с папки InitialPath

    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора

    If Not IsMissing(InitialPath) Then

        On Error Resume Next: ChDrive Left(InitialPath, 1)

        ChDir InitialPath    ' выбираем стартовую папку

    End If

    res = Application.GetOpenFilename(MyFilter, , Title, "Открыть")  ' вывод диалогового окна

    GetFileName = IIf(VarType(res) = vbBoolean, "", res)    ' пустая строка при отказе от выбора

End Function

Sub ПримерИспользования_GetFileName()

    ИмяФайла = GetFileName("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя файла

    ' ===================== другие варианты вызова функции =====================

    ' текстовые файлы, стартовая папка не указана

    '       ИмяФайла = GetFileName("Выберите текстовый файл", , "Текстовые файлы (*.txt),")

    ' файлы любого типа из папки "C:Windows"

    '       ИмяФайла = GetFileName(, "C:Windows", "")

    ' ==========================================================================

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла

    MsgBox "Выбран файл: " & ИмяФайла, vbInformation

End Sub

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _

                       Optional ByVal InitialPath As String = "c:") As String

    ' функция выводит диалоговое окно выбора папки с заголовком Title,

    ' начиная обзор диска с папки InitialPath

    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора

    Dim PS As String: PS = Application.PathSeparator

    With Application.FileDialog(msoFileDialogFolderPicker)

        If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS

        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath

        If .Show <> -1 Then Exit Function

        GetFolderPath = .SelectedItems(1)

        If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS

    End With

End Function

Sub ПримерИспользования_GetFolderPath()

    ПутьКПапке = GetFolderPath("Заголовок окна", ThisWorkbook.Path)   ' запрашиваем имя папки

    ' ===================== другие варианты вызова функции =====================

    ' стартовая папка не указана, заголовок окна по умолчанию

    '       ПутьКПапке = GetFolderPath

    ' обзор папок начинается с папки "Рабочий стол"

    '       СтартоваяПапка = CreateObject("WScript.Shell").SpecialFolders("Desktop")

    '       ПутьКПапке = GetFolderPath("Выберите папку на рабочем столе", СтартоваяПапка)

    ' ==========================================================================

    If ПутьКПапке = "" Then Exit Sub    ' выход, если пользователь отказался от выбора папки

    MsgBox "Выбрана папка: " & ПутьКПапке, vbInformation

End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _

                     Optional ByVal InitialPath As String = "c:", _

                     Optional ByVal FilterDescription As String = "Книги Excel", _

                     Optional ByVal FilterExtention As String = "*.xls*") As String

    ' функция выводит диалоговое окно выбора файла с заголовком Title,

    ' начиная обзор диска с папки InitialPath

    ' возвращает полный путь к выбранному файлу, или пустую строку в случае отказа от выбора

    ' для фильтра можно указать описание и расширение выбираемых файлов

    On Error Resume Next

    With Application.FileDialog(msoFileDialogOpen)

        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath

        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention

        If .Show <> -1 Then Exit Function

        GetFilePath = .SelectedItems(1): PS = Application.PathSeparator

    End With

End Function

Sub ПримерИспользования_GetFilePath()

     ИмяФайла = GetFilePath("Выберите файл Word", , "Документы Word", "*.doc") ' запрашиваем имя файла

    ' ===================== другие варианты вызова функции =====================

    ' текстовые файлы, стартовая папка не указана

    '       ИмяФайла = GetFilePath("Выберите текстовый файл", , "Текстовые файлы", "*.txt")

    ' файлы любого типа из папки "C:Windows"

    '       ИмяФайла = GetFilePath(, "C:Windows", , "*")

    ' ==========================================================================

    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла

    MsgBox "Выбран файл: " & ИмяФайла, vbInformation

End Sub

Function GetFilenamesCollection(Optional ByVal Title As String = "Выберите файлы для обработки", _

                             Optional ByVal InitialPath As String = "c:") As FileDialogSelectedItems

    ' функция выводит диалоговое окно выбора нескольких файлов с заголовком Title,

    ' начиная обзор диска с папки InitialPath

    ' возвращает массив путей к выбранным файлам, или пустую строку в случае отказа от выбора

    With Application.FileDialog(3) ' msoFileDialogFilePicker

        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath

        If .Show <> -1 Then Exit Function

        Set GetFilenamesCollection = .SelectedItems

    End With

End Function

Sub ПримерИспользования_GetFilenamesCollection()

    Dim СписокФайлов As FileDialogSelectedItems

    Set СписокФайлов = GetFilenamesCollection("Заголовок окна", ThisWorkbook.Path)   ' выводим окно выбора

    ' ===================== другие варианты вызова функции =====================

    ' стартовая папка не указана, заголовок окна по умолчанию

           Set СписокФайлов = GetFilenamesCollection

    ' обзор файлов начинается с папки "Рабочий стол"

           СтартоваяПапка = CreateObject("WScript.Shell").SpecialFolders("Desktop")

           Set СписокФайлов = GetFilenamesCollection("Выберите файлы на рабочем столе", СтартоваяПапка)

    ' ==========================================================================

    If СписокФайлов Is Nothing Then Exit Sub  ' выход, если пользователь отказался от выбора файлов

    For Each File In СписокФайлов

        Debug.Print File

    Next

End Sub

Ещё один вариант кода (который я использую) для выбора файла
Его отличие — функция запоминает папку, из которой последний раз выбирался файл,
и при повторном запуске диалогового окна выбора файла,
обзор папок будет начат с той папки, откуда последний раз был взят файл.

Sub AttachFile_test()    ' пример использования

    Filename$ = GetFilePath()

    If Filename$ = "" Then Exit Sub

    MsgBox "Выбран файл: " & Filename$

End Sub

Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _

                     Optional ByVal InitialPath As String = "c:", _

                     Optional ByVal FilterDescription As String = "Файлы счетов", _

                     Optional ByVal FilterExtention As String = "*.*") As String

    On Error Resume Next

    With Application.FileDialog(msoFileDialogOpen)

        .ButtonName = "Выбрать": .Title = Title:

        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)

        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention

        If .Show <> -1 Then Exit Function

        GetFilePath = .SelectedItems(1)

        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), ""))

        SaveSetting Application.Name, "GetFilePath", "folder", folder$

    End With

End Function

• 138056 просмотров