Хочете надати собі або своїм користувачам швидкий спосіб пошуку та відкриття файлу в Excel? Цей макрос використовує просту техніку, яка відкриває дружнє діалогове вікно, що дозволяє вам шукати та відкривати файл Excel на ваш вибір.
Як працює макрос
Цей макрос відкриває діалогове вікно, яке ви бачите тут, дозволяючи користувачеві переглядати та відкривати файл Excel.
Діалогове вікно «Відкрити», що активується макросом.
Ось як працює цей макрос:
Підмакрос1()
'Крок 1. Визначте рядкову змінну
Dim FName як варіант
«Крок 2: метод GetOpenFilename активує діалогове вікно
FName = Application.GetOpenFilename( _
FileFilter:="Книги Excel,*.xl*", _
Title:="Виберіть книгу для відкриття", _
MultiSelect:=False)
«Крок 3: Якщо вибрано файл, відкрийте його!
Якщо FName <> False Тоді
Workbooks.Open Ім'я файлу:=FName
Кінець Якщо
Кінець суб
На кроці 1 макрос оголошує змінну Variant, яка містить назву файлу, яку вибирає користувач. FName - це ім'я вашої змінної.
На кроці 2 ви використовуєте метод GetOpenFilename, щоб викликати діалогове вікно, яке дозволяє переглянути та вибрати потрібний файл.
Метод GetOpenFilename підтримує кілька настроюваних параметрів. Параметр FileFilter дозволяє вказати тип файлу, який ви шукаєте. Параметр Title дозволяє змінити назву, яка з’являється у верхній частині діалогового вікна. Параметр MultiSelect дозволяє обмежити вибір одним файлом.
Якщо користувач вибирає файл у діалоговому вікні, змінна FName заповнюється вибраним ім’ям файлу. На кроці 3 ви перевіряєте наявність порожньої змінної FName. Якщо змінна не порожня, ви використовуєте метод Open об’єкта Workbooks, щоб відкрити файл.
Як використовувати макрос
Щоб реалізувати цей макрос, ви можете скопіювати та вставити його в стандартний модуль:
Активуйте редактор Visual Basic, натиснувши Alt+F11 на клавіатурі.
Клацніть правою кнопкою миші назву проекту/книги у вікні проекту.
Виберіть «Вставка»→ «Модуль».
Введіть або вставте код у щойно створений модуль.
(Необов’язково) Призначте макрос кнопці.