Макросы

Что делает макрос

Данный макрос открывает диалоговое окно, как показано на рис, что позволяет пользователю просматривать и открывать файл Excel.

Код макроса

1. Sub Macros7()
2. Dim FName As Variant '1 Определяем переменную.
3. FName = Application.GetOpenFilename( _
4.     FileFilter:="Excel Workbooks,*.xl*", _
5.     Title:="Выбери файл, который надо открыть", _
6.     MultiSelect:=False)
7. '2 Метод GetOpenFilename активизирует диалоговое окно, в котором:
8.     'FileFilter - определяем тип файла
9.     'Title - заголовок окна
10.     'MultiSelect - множественный выбор
11. If FName <> False Then '3 Если был выбран файл, открыть его!
12.     Workbooks.Open Filename:=FName
13. End If
14. End Sub

Как работает этот код

1. Первое, что делаем - объявляем переменную типа Variant, будет содержать Имя файла, который пользователь выберет. FName - имя нашей переменной.
2. На шаге 2 мы используем метод GetOpenFilename, чтобы вызвать диалоговое окно, которое позволяет просмотреть содержимое папки и выбрать нужный нам файл. Метод GetOpenFilename поддерживает несколько настраиваемых параметров:
   • ​FileFilter параметр позволяет указать Тип файла, который мы ищем.

   • Title позволяет изменить заголовок, который отображается в верхней части диалогового окна.

   • MultiSelect - параметр множественный выбор позволяет ограничить выбор в один файл.

3. Если пользователь выбирает файл из диалогового окна, переменная FName берёт Имя файла, который выбрали. Если переменная не пустая, мы используем метод Open из книг объекта, чтобы открыть файл.

Как использовать

1