Эта же методика применяется и по отношению к почтовым сообщениям. В приведен­ ном ниже примере создается сообщение по умолчанию, в котором указан адрес получа­ теля. Это сообщение рассылается получателям с помощью заданного по умолчанию поч­ тового клиента.

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

Описанные в разделе примеры доступны на прилагаемом к книге компактдиске в файле s h e lle x e c u te examples . xlsm .

Активизация другого приложения

спомощью Excel

Впредыдущих разделах рассматривались различные способы запуска приложения на выполнение. При этом возможна следующая проблема: может оказаться, что приложе­ ние уже выполняется в момент использования функции S h e ll для его запуска. Это при­

ведет к запуску нового сеанса указанного приложения. Вам же требуется перейти к уже запущенному сеансу работы программы, а не создать новый.

Инструкция AppActivate

В представленной ниже процедуре S ta r tC a lc u la to r инструкция A p p A ctivate применяется для активизации выполняющегося приложения (в данном случае идет речь о приложении калькулятора). В качестве аргумента используется заголовок приложения. Если инструкция A p p A ctivate возвращает ошибку, то приложение калькулятора еще не запущено. Далее процедура запускает указанное приложение.

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

шМ Рассматриваемый в этом разделе пример находится на прилагаемом к кни-

ге компакт-диске в файле s t a r t c a lc u la to r .xlsm .

213ak. 3107

та. Автоматизация в некотором смысле размывает границы между приложениями. Ко­ нечный пользователь может работать с объектом Access и даже не подозревать об этом.

Примечание

Одни приложения, в том числе Excel, могут быть как серверными, так и кли­ ентскими, а другие могут быть клиентскими либо серверными.

В этом разделе продемонстрированы способы использования VBA для получения доступа к объектам, которые предоставляются другими приложениями, и для управления объектами. В приведенных примерах используется только программа Microsoft Word, но рассматриваемая концепция в одинаковой степени относится ко всем приложениям, ко­ торые предоставляют собственные объекты для автоматизации (с течением времени та­ ких приложений становится все больше).

Работа с внешними объектами

В Excel можно использовать команду ВставкаОТекст1^ Объект (Insert^Text^Object) для встраивания объекта (например, документа Word) в рабочий лист. Кроме того, суще­ ствует возможность создать объект и манипулировать им в VBA. (Это возможно благодаря все той же технологии автоматизации.) При таком подходе программе предоставляется полный доступ к объекту. Разработчикам подобная технология обычно нравится больше, чем встраивание объекта в рабочий лист. Когда объект встроен, пользователь должен точно знать, как пользоваться приложением, которому принадлежит объект. Но если для управ­ ления объектом применяется код VBA, можно настроить объект так, что пользователь бу­ дет управлять им с помощью таких простых операций, как щелчок на кнопке.

Раннее и позднее связывание

Перед началом работы с внешним объектом необходимо создать его экземпляр. Это можно сделать с помощью раннего или позднего связывания. Связывание обозначает уста­ новку соответствия между вызовами тех функций, которые создает разработчик, и факти­ ческим кодом, выполняемым при запуске функции.

Раннее связывание

Для использования раннего связывания создайте ссылку на объектную библиотеку с помощью команды VBE Tools^References (Сервис^Ссылки). Откроется диалоговое окно, показанное на рис. 20.4. Установите флажок, соответствующий объектной библио­ теке, на которую установлена ссылка.

После создания ссылки на библиотеку объектов можно использовать окно Object Browser (показанное на рис. 20.5) для просмотра имен, методов и свойств объектов. Для открытия этого окна нажмите клавишу <F2> в среде VBE.

При использовании раннего связывания следует создать ссылку на конкретную вер­ сию библиотеки объектов. Например, можно указать Microsoft Word 10.0 Object Library (для Word 2002), Microsoft Word 11.0 Object Library (для Word 2003) или Microsoft Word 14.0 Object Library (для Word 2010). После этого используется следующий опера­ тор для создания объекта:

Dim WordApp As New W o rd .A p p lic a tio n