Метод Application.GetOpenFilename (Excel)
Отображает стандартное диалоговое окно Открыть и получает у пользователя имя файла без фактического открытия файлов.
Синтаксис
выражение.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| FileFilter | Необязательный | Variant | Строка, указывающая условия фильтрации файлов. |
| FilterIndex | Необязательный | Variant | Указывает значения индексов условий фильтрации файлов по умолчанию — от 1 до количества фильтров, указанных в FileFilter. Если этот аргумент пропущен или его значение превышает число имеющихся фильтров, используется первый фильтр файлов. |
| Title | Необязательный | Variant | Указывает заголовок диалогового окна. Если этот аргумент пропущен, используется заголовок "Открыть". |
| ButtonText | Необязательный | Variant | Только для Macintosh. |
| MultiSelect | Необязательный | Variant | Значение True, чтобы разрешить выбор нескольких имен файлов. Значение False, чтобы разрешить выбор только одного имени файла. Значение по умолчанию — False. |
Возвращаемое значение
Variant
Примечания
Эта строка, передаваемая в аргументе FileFilter, состоит из пар строк фильтра файлов, после которых идет спецификация фильтра файлов MS-DOS с подстановочным знаком, где каждая часть и каждая пара разделяются запятыми. Каждая отдельная пара указана в раскрывающемся списке Тип файлов. Например, следующая строка указывает два фильтра файлов — text и addin:
"Text Files (*.txt), *.txt,Add-In Files (*.xla), *.xla"
Чтобы использовать разные выражения с подстановочными знаками MS-DOS для одного типа фильтра файлов, разделяйте выражения с подстановочными знаками точкой с запятой. Пример: "Visual Basic Files (*.bas; *.txt), *.bas;*.txt".
Если FileFilter пропущен, этому аргументу по умолчанию присваивается значение "All Files (*.*), *.*".
Этот метод возвращает выбранное имя файла или имя, введенное пользователем. Возвращаемое имя может содержать путь. Если параметру MultiSelect присвоено значение True, возвращаемое значение является массивом выбранных имен файлов (даже если выбрано только одно имя файла). Возвращается значение False, если пользователь отменяет использование диалогового окна.
Этот метод может менять текущий диск или папку.
Пример
В этом примере отображается диалоговое окно Открыть с фильтром, настроенным на текстовые файлы. Если пользователь выбирает имя файла, код отображает это имя файла в окне сообщения.
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.