Включение событий уровня объекта Application

Для использования событий уровня объекта A p p lic a tio n выполните следующие действия.

1.Создайте модуль класса.

2.В окне Properties (Свойства) присвойте имя этому модулю класса.

По умолчанию VBA присваивает каждому новому модулю класса заданные по умолчанию имена Класс 1, Класс2 и т.д. Можно присвоить модулю класса дру­ гое имя, которое лучше описывает его назначение, например clsA pp.

3.В модуле класса объявите глобальный объект A p p lic a tio n с помощью ключе­ вого слова W ithE vents, как показано ниже.

P u b lic W ith E v e n ts XL As A p o lic a t io n

4. Создайте переменную, которая будет использоваться в качестве ссылки на объект A p p lic a tio n в модуле класса. Это должна быть переменная уровня модуля, объявленная в обычном модуле VBA (а не в модуле класса).

Dim X As New cls A p p

5.Свяжите объявленную переменную с объектом A p p lic a tio n . Обычно эта опе­ рация выполняется в процедуре Workbook_Open, как показано ниже.

S et X . XL = A p p lic a t io n

6. Создайте процедуры-обработчики событий для объекта XL в модуле класса.

П ерекрестная ссы лка

©Эти действия практически идентичны выполняемым при обработке событий на уровне объекта встроенной диаграммы (см. главу 18).

Определение факта открытия рабочей книги

Пример, приведенный в этом разделе, позволяет отслеживать события открытия каж­ дой рабочей книги и сохранения информации в текстовом файле (в формате CSV).

628 Часть V. Профессиональные методы программирования

Начать создание такой процедуры можно со вставки нового модуля класса, назы­ вающегося clsA pp. В модуле класса должен располагаться следующий код.

Этот код объявляет объект A p p lic a tio n , который называется A ppEvents и под­ держивает обработку событий. Процедура AppEvents_W orkbookOpen вызывается каждый раз при открытии рабочей книги. Эта процедура обработки события вызывает процедуру U pdateL ogF ile и передает ей аргумент Wb, который представляет откры­ тую рабочую книгу. После этого необходимо добавить модуль VBA, содержащий сле­ дующий код.

'Вызывается процедурой W orkbook_Open

Обратите внимание на объявление переменной типа A ppC lass (так называется мо­ дуль класса). Вызов процедуры I n i t производится в процедуре Workbook_Open, ко­ торая расположена в модуле кода объекта ЭтаКнига. Процедура Workbook_Open вы­ глядит следующим образом.

Процедура U pdateL ogF ile открывает текстовый файл (или создает его, если тако­ го файла не существует) и записывает ключевую информацию об открытой рабочей кни­ ге: имя файла, полный путь к нему, дату, время и имя пользователя.

Процедура Workbook_Open вызывает процедуру I n i t . Таким образом, при откры­ тии рабочей книги процедура I n i t создает новый объект.

К о м п а к т-д и ск

Рассматриваемый в этом разделе пример находится на прилагаемом к кни­ ге компакт-диске в файле lo g w orkbook o p e n . xlsm .