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

Для того чтобы поработать с внешним объектом из программы на 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

Вычисляемые свойства, свойства только для чтения.

Процедуры Property можно использовать на уровне форм, стандартных модулей и модулей класса. То есть такие процедуры должны быть использованы вместо Public переменных, если требуется выполнить некоторые действия в тот момент, когда устанавливается значение этой переменной. В отличие от Public переменной Property процедуры могут иметь текст подсказки. Три варианта процедур обеспечивают следующее: Property Let – присваивание значения свойству, Property Get – возвращает значение свойства, Property Set устанавливает ссылку на объект.

Попытаемся разобраться, зачем они нужны. В объектно-ориентированном программировании достаточно тонка грань между методами и свойствами. Предполагается, что метод отражает некоторое действие. Но вдумайтесь, зачем пользователю Вашего объекта знать, что Вы написали программу, которая вычисляет значение некоторого свойства, а не храните это значение прямо в объекте? Рассмотрим пример. Пусть Вы описали объект "работник" и задали внешнее свойство "средняя заработная плата". Пользователь Вашего класса имеет возможность использовать это свойство. А Вы стоите перед выбором: то ли хранить его и пытаться поддерживать его актуальность, то ли вычислять при каждом обращении к нему. Вариант с периодическим перевычислением, состоящий в том, что, например, в начале каждого месяца запускается программа, которая пересчитывает среднюю зарплату для всех, не эффективен, поскольку, вероятно, никто не запросит среднюю зарплату для всех. Выполнять всегда пересчет при запросе тоже не очень хорошо при условии, что в течение месяца может быть неоднократное обращение к средней зарплаты некоторого работника, хотя последняя остается, очевидно, неизменной. Вероятно, наилучшим решением будет применение конструкции property get. Ваши вычисления будут скрыты от пользователя класса, к тому же вы сможете организовать дело наиболее эффективным способом.

Вставьте в проект модуль класса, назовите его worker (работник). В модуле класса опишите два скрытых от пользователя класса свойства и доступную процедуру.

Dim sr As Single, dt As Date

Public Property Get s_ZP() As Single

If Month(dt) < Month(Date) Then

‘здесь расчет средней з/п

dt = Date - (Day(Date) - 1)

End If

s_ZP = sr

End Property

В некоторой прикладной программе будет обращение к свойству s_ZP.

Dim ob As woker

…

MsgBox ob.s_ZP

Еще одна причина использования процедур Property: процедуры могут быть использованы для создания свойств "только для чтения". Подумайте, если вам требуется скрыть некоторое свойство объекта, вы его описываете как Private, если вы хотите предоставить пользователю класса некоторое свойство, вы его описываете как Public. Но при помощи этих описателей нет возможности создать видимое, но не изменяемое свойство. А с помощью процедур Property это сделать несложно: достаточно для некоторого свойства описать Property Get и не описывать процедуру Property Let! Впрочем, можно ее описать, но в ней вежливо уведомить пользователя о недопустимости изменения данного свойства.