Искате ли да дадете на себе си или на вашите потребители бърз начин за търсене и отваряне на файл в Excel? Този макрос използва проста техника, която отваря удобен диалогов прозорец, който ви позволява да преглеждате и отваряте файла на Excel по ваш избор.
Как работи макросът
Този макрос отваря диалоговия прозорец, който виждате тук, позволявайки на потребителя да преглежда и отваря файл на Excel.
Диалоговият прозорец Отвори, активиран от макроса.
Ето как работи този макрос:
Подмакрос1()
„Стъпка 1: Дефинирайте низова променлива
Dim FName като вариант
„Стъпка 2: Методът GetOpenFilename активира диалоговия прозорец
FName = Application.GetOpenFilename( _
FileFilter:="Excel Workbooks,*.xl*", _
Title:="Изберете работна книга за отваряне", _
MultiSelect:=False)
„Стъпка 3: Ако е избран файл, отворете го!
Ако FName <> False Тогава
Workbooks.Open Filename:=FName
Край, ако
Край под
В стъпка 1 макросът декларира променлива Variant, която съдържа името на файла, което потребителят избира. FName е името на вашата променлива.
В стъпка 2 използвате метода GetOpenFilename, за да извикате диалогов прозорец, който ви позволява да разглеждате и избирате файла, от който се нуждаете.
Методът GetOpenFilename поддържа няколко параметра, които могат да се персонализират. Параметърът FileFilter ви позволява да посочите типа файл, който търсите. Параметърът Title ви позволява да промените заглавието, което се показва в горната част на диалоговия прозорец. Параметърът MultiSelect ви позволява да ограничите избора до един файл.
Ако потребителят избере файл от диалоговия прозорец, променливата FName се запълва с избраното име на файл. В стъпка 3 проверявате за празна променлива FName. Ако променливата не е празна, използвате метода Open на обекта Workbooks, за да отворите файла.
Как да използвате макроса
За да приложите този макрос, можете да го копирате и поставите в стандартен модул:
Активирайте редактора на Visual Basic, като натиснете Alt+F11 на клавиатурата.
Щракнете с десния бутон върху името на проект/работна книга в прозореца на проекта.
Изберете Вмъкване→Модул.
Въведете или поставете кода в новосъздадения модул.
(По избор) Задайте макроса на бутон.