www.ПЕРВЫЕ ШАГИ.ru :: Шаг 24 - Использование Automation

Использование элементов ActiveX на базе можели COM - компонентная модель объектов, позволяет создавать сложные составные документы, то есть там могут находиться материалы из разных программ - Excel, Access, PowerPoint и так далее. Кроме этого есть возможность пользоваться другим приложением для решения задач. Например Excel может использовать Access для хранения данных или наоборот Access может использовать Excel для расчетов. Вобщем это можно назвать построением пользовательских приложений на базе готовых программ.

Понятие, которое используеться в основе всех интегрированных систем является служба. MS OFFICE обеспечивает все необходимые службы для создания офисных приложений:

• ACCESS - База данных
• EXCEL - Расчеты
• WORD - Текстовый редактор
• PowerPoint - Презентационная графика
• Office Binder - Интеграция документов
• Outlook - Служба управления документами
• Internet Exploler - Работа с интернет

Объект с вашим приложением можно связать используя позднее и ранее связывание. Позднее связывание происходит на этапе выполнения кода и для него используется понятие Object. Ниже будет приведен код для программы Corel Draw и использование её в качестве объекта для Automation.

Sub Test()
	Dim objCorel As Object
	Set objCorel = CreateObject("CorelDraw.Graphic.8")
	MsgBox ("press")
End Sub

В момент когда на экране появится сообщение PRESS нажмите Ctrl-Alt-Delete для просмотра активных объектов. Вот смотрите ниже.

Для позднего связывания используется меню Сервис - Ccылки, в предыдущих шагах мы об этом пункте меню упоминали. Вот пример для Excel.

Sub Test()
	Dim objExcel As Excel.Application
	Set objExcel = CreateObject("Excel.Application")
End Sub

Ну и напоследок как можно использовать объект Word из Excel:

Sub Test()
	Dim objWord As Word.Application
	Set objWord = CreateObject("Word.Application")
	MsgBox (objWord.Caption)
	MsgBox (objWord.UserName)
End Sub