Создание экземпляра приложения-сервера

Задание ссылки на соответствующую библиотеку объектов - это необходимое, но недостаточное условие для использования объектов этой библиотеки. Нужно также с помощью процедуры создать экземпляр приложения-сервера. Для этого используется оператор CreateObject (Создать объект). Только после создания экземпляра приложения-сервера можно использовать все открытые объекты этого приложения, а также их свойства и методы. В листинге 32 приведен код, создающий экземпляр Word.

Листинг 32. Создание экземпляра Word

Dim у As Word.Application Set у = CreateObject("Word.Application")

После создания экземпляра приложения-сервера, можно использовать его объекты, свойства и методы точно так же, как и объекты, свойства и методы Excel. Из этого следует, что можно записать макрос в Word, а затем полученный код вставить в процедуру Excel. Далее в код при необходимости можно внести изменения, или как-нибудь еще использовать этот код.

Использование объектов Microsoft Word

Рассмотрим простое приложение, вставляющее диапазон ячеек рабочего листа Excel в письмо, созданное в Word. В программе Word создадим документ следующего содержания:

Менеджеру по продажам Посылаю Вам таблицу с итоговыми данными по объемам продаж. Если у Вас есть вопросы, то свяжитесь со мной. С уважением, Босс

Сохраните этот текст в файле letter.doc. Теперь вставим в письмо две закладки. Закладка - это поименованное место в документе Word. Для вставки закладок выполните следующие действия.

1. Установите курсор в начало фразы Менеджеру по продажам.

2. Выполните команду Вставка > Закладка, откроется диалоговое окно Закладка.

3. Введите Регион в качестве имени закладки и щелкните на кнопке Добавить.

4. Добавьте пустую строку перед С уважением. Установите курсор в эту пустую строку и вставьте закладку Данные.

5. Сохраните и затем закройте документ.

Перейдите в Excel и создайте таблицу с данными, подобную приведенной на рис. 11. Эта таблица далее будет скопирована и вставлена в документ letter.doc. Вернитесь в Word и начните запись макроса с именем Данные_продажи, предварительно открыв новый документ. Для начала записи макроса в Word необходимо выполнить те же действия, что и в Excel. Прежде всего выполните команду Сервис > Макрос > Начать запись.

Рис. 11. Таблица данных, которую надо вставить в письмо

Во время записи макроса выполните следующие действия.

1. Выберите команду Файл > Открыть и откройте документ letter.doc.

2. Выполните команду Правка > Перейти. В диалоговом окне Найти и заменить на вкладке Перейти в списке Объект перехода выберите пункт Закладка, а затем в раскрывающемся списке Введите имя закладки выберите Регион. Щелкните на кнопке Перейти.

3. Теперь выберите закладку Данные и щелкните на кнопке Перейти.

4. Щелкните на кнопке Закрыть для удаления диалогового окна Найти и заменить.

5. Остановите запись макроса.

Выполнив команду Сервис > Макрос > Макросы, откроете диалоговое окно Макрос и выберите макрос Данные_продажи. Для просмотра кода этого макроса щелкните на кнопке Изменить. Удалите строки из процедуры так, чтобы у вас осталось то, что показано в листинге 33.

Листинг 33. "Остаток" процедуры Данные продажи

Sub Данные_продажи() Documents.Open FileName:="Письмо.doc" Selection.GoTo What:=wdGoToBookmark, Name:="Регион" Selection.GoTo What:=wdGoToBookmark, Name:="Данные" End Sub

Этот код будет основой процедуры, которую мы создаем в Excel. Скопируйте эту процедуру в буфер обмена. Закройте Word, вернитесь в Excel и откройте редактор Visual Basic. Добавьте модуль в текущую рабочую книгу и вставьте в него скопированную процедуру. Теперь надо создать экземпляр Word, а также перед каждой строчкой процедуры поставить имя переменной, соответствующей экземпляру Word. Самый простой способ сделать это - применить оператор With. Код измененной процедуры показан в листинге 34.

Листинг 34. Процедура Данные продажи с экземпляром Word

Sub Данные_продажи() Dim y As Word.Application Set y = CreateObject("Word.Application") With y .Documents.Open FileName:="Письмо.doc" .Selection.GoTo What:=wdGoToBookmark, Name:="Регион" .Selection.GoTo What:=wdGoToBookmark, Name:="Данные" End With End Sub

Осталось добавить код, копирующий таблицу данных в Excel и вставляющий ее в документ Word. Полный код процедуры приведен в листинге 35.

Листинг 35. Законченная процедура Данные продажи '

Sub Данные_продажи() Dim y As Word.Application Set y = CreateObject("Word.Application") With y .Visible = True .Documents.OpenFileName:="C:\Мои документы\letter.doc" Worksheets("Лист1").Range("B1").Copy .Selection.GoTo What:=wdGoToBookmark, Name:="Регион" .Selection.Paste Application.CutCopyMode = False Worksheets("Лист1").Range("A3:D11).Select .Selection.Copy .Selection.GoTo What:=wdGoToBookmark, Name:="Данные" .Selection.Paste Application.CutCopyMode = False End With End Sub

Первый оператор .Visible = True устанавливает свойство Word Visible (Видимый) как True, тем самым открывая окно программы Word и выводя его на передний план. Далее открывается документ Письмо. Затем копируется содержимое ячейки В1, содержащей название региона, осуществляется переход к закладке Регион и вставляется содержимое ячейки В1. Установка свойства Excel cutCopyMode (Режим вырезания и копирования) как False снимает выделение с ячейки В1:

.Documents. OpenFileName:="C:\Мои документы\letter.dос" Worksheets("Лист1").Range("B1").Copy .Selection.GoTo What:=wdGoToBookrnark, Name:="Регион" .Selection.Paste Application.CutCopyMode = False

Затем аналогичная процедура копирования и вставки выполняется для диапазона А3:D11. Результат работы программы приведен на рис. 12.

Рис. 12. Документ Word со вставленными данными Excel

В заключение перечислим этапы выполнения этого примера.

• Создание файла в приложении-сервере.

• Создание таблицы данных в Excel (приложении-клиенте).

• Запись макроса в приложении-сервере.

• Копирование кода записанного макроса и вставка его в процедуру, создаваемую в Excel.

• Изменение процедуры Excel для создания экземпляра приложения-сервера.

Как видно из примера, использование технологии автоматизации позволяет внедрять и использовать объекты других приложений в проектах VBA.