Доступ к внешним COM-серверам

Доступ к вставленным в документ OLE-объектам

Описание программирования в VBA, модели COM

Пользователю предоставляется возможность вставки OLE-объекта двумя способами: со связью с исходным файлом и без связи. С точки зрения пользователя видимая разница заключается в том, что при активизации вставленного объекта (двойным щелчком или при выборе одного из пунктов меню «открыть», «изменить») либо запускается родительское приложение в отдельном окне, либо «оживает» вставленный объект в маленьком окошке внутри исходного документа.

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

OLE-объект со связью

На самом деле такой объект – просто ссылка на файл, поэтому свойство OLEFormat.Object не определено, но определено свойство LinkFormat. Поэтому получить доступ к вставленному объекту через свойство Object невозможно. Но можно, во-первых, программно активизировать вставленный объект, то есть запустить родительское приложение, и имитируя нажатия клавиатуры управлять им. Во-вторых, можно узнать имя исходного файла из свойства LinkFormat.SourceFullName, а затем, пользуясь обычным способом доступа к внешним COM-серверам (при помощи функций GetObject или CreateObject) сформировать COM-объект и модифицировать его. ‘ управление через внешний COM-объект Dim fn as string, ob as Object Fn= ThisDocument.InlineShapes(1).LinkFormat.SourceFullName Set ob=GetObject(Fn) … ‘ управление через буфер клавиатуры With ThisDocument.InlineShapes(1).OLEFormat .Activate End With SendKeys "{RIGHT}", True ' Get grand total. SendKeys "{RIGHT}", True ' Get grand total. SendKeys "{DOWN}", True ' Get grand total. SendKeys "=A2{+}B2{ENTER}", True ' Get grand total. SendKeys "%{F4}", True SendKeys "{ENTER}", True SendKeys "g:\ttt1{ENTER}{ENTER}", True

OLE-объект без связи

Это – действительно COM-объект с дополнительной информацией о родительском приложении и файле. Информация о родителях становится доступной только после активизации OLE-объекта. А через свойство Object можно перейти к внедренному объекту, далее можно работать со свойствами и методами этого объекта. Свойство ProgID – ранее обсуждаемое нами символьное имя объекта, например, "Excel.Sheet" – идентификатор вставленного Excel – объекта. With ThisDocument.InlineShapes(1).OLEFormat .Activate MsgBox.Object.FullName Set ob =.Object End With …

Для того чтобы поработать с внешним объектом из программы на VBA, следует воспользоваться функциями GetObject или CreateObject или применить ключевое слово New.

Функция CreateObject создает и возвращает ссылку на OLE объект – главный (умалчиваемый) объект запускаемого приложения. В соответствии с COM стандартом такой объект есть у всех приложений, поддерживающих OLE-2. Параметр функции – идентификатор COM-объекта, содержащийся в реестре в разделе HKEY_CLASSES_ROOT. В этом случае можно при описании переменной указать тип Object, что будет соответствовать позднему связыванию. Но практически всегда раннее связывание предпочтительнее.

Dim ex As Excel.Application

Set ex= CreateObject(“Excel.Application”)

MsgBox ex.Name

Можно создать COM-объект по-другому: воспользоваться ключевым словом New. Т.к. после этого ключевого слова необходимо указать имя объектного типа, то сначала необходимо подключить необходимую библиотеку (меню Tools – Refererce). Обратите внимание на то, что при таком способе создания объекта мы используем раннее связывание (и это – хорошо).

Dim ex As Excel.Application

Set ex= New Excel.Application

MsgBox ex.Name

Допустимо сразу указывать слово New при описании переменной.

Dim ex As New Excel.Application

MsgBox ex.Name

Функция GetObject позволяет обратиться к файлу как к ActiveX объекту, запустив при этом, если потребуется, родительское приложение.

Пусть необходимо хранить имена пользователей, открывавших документ, и дату открытия. Можно воспользоваться объектом WSHNetwork, который находится в библиотеке Windows Script Object Model, подключаемой (для раннего связывания) в меню редактора VBA «Tools – Reference».

Dim wh As New IWshRuntimeLibrary.WshNetwork

MsgBox wh.UserName

Дата добавления: 2014-01-04