Автоматический запуск Программы VBA.
Теперь, когда появился законченный проект программы VBA, возникает вопрос как запускать программу минуя редактор VBA? Нужно сделать вызов нашей программы в момент открытия книги электронной таблицы, т.е. другими словами когда для объекта "Workbook" происходит событие "Workbook_Open" Нужно выполнить код (Рис.1):
Privite Sub Workbook_Open()
UserForm1.Show 'Вызов программы
End Sub
Рис. 1. Код вызова программы.
Добавляем код в нашу программу "RRasch23.xls"(Primer4.rar) как показано на Рис.1. Сохраняем изменения, закрываем всё и открыв файл "RRasch23.xls" смотрим на результат. Как это работает поясним на рис. 2:
Рис. 2 Схема автозапуска VBA приложения.
При открытии книги Excel выполняется автозапуск приложения VBA, которое открывается поверх окна Excel. При закрытии приложения VBA управление передаётся в Excel и электронную таблицу можно закрыть.
Нас интересует только панель нашей программы и книгу Excel таблицы можно и не показывать. Нет проблем. Делаем нашу книгу Excel таблицы невидимой, а при закрытии программы нужно закрывать и Excel. Как это сделать? Рассмотрим рис.3:
Рис. 2 Схема автозапуска VBA приложения с переводом Excel в фоновый режим.
В алгоритм работы нашей программы добавим команды: cкрыть Excel, cделать Excel видимым, закрыть Excel. При открытии приложения VBA Excel переводится в фоновый режим(делается невидимым). Когда нужно закрыть программу, то сначала Excel делаем видимым, а затем закрываем Excel(при выполнении данной команды закрывается и наша программа).
В программу внесём следующий код:
- для процедуры Private Sub UserForm_Initialize() добавим код
'******** ПЕРЕВОДИМ Excel в фоновый режим********
Application.Visible = False
'************************************************
- добавить процедуру для выхода из программы вместе с Excel
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'******** Сделать Excel видимым ********
Application.Visible = True
Application.Quit
'***************************************
End Sub
Дата добавления: 2015-12-17; просмотров: 16; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!