Библиотека Интернет Индустрии I2R.ru

Практически все пользователи имеют дело с офисными пакетами Microsoft, причем многие из них адаптируют эти продукты в соответствии со спецификой своих конкретных задач, используя внутренний макроязык. При создании собственных приложений вам наверняка хотелось бы, чтобы конечный пользователь мог щелчком мыши открыть среду VBA и программировать там так же, как в пакетах Microsoft Office. Но как это реализовать?

Общие сведения о технологии VBA

Уже с версии VBA 5.0, входившей в состав Office 97, Microsoft продвигает этот механизм в качестве стандартного средства управления программируемыми приложениями независимых разработчиков. За последние три года лицензии на применение VBA приобрели более 150 фирм, в том числе и всемирно известные компании (Autodesk, Adobe, PeopleSoft, Baan, SAP, Solomon Software и др.), и небольшие. В конце 1999 г. лицензию на VBA впервые приобрела российская компания - екатеринбургская фирма <СКБ Контур>.

Сначала Microsoft предоставляла лицензии на VBA только разработчикам коммерческих продуктов (ISV - Independent Software deVeloper), но с сентября 1999 г. они стали распространяться и среди корпоративных заказчиков (подробнее см. www.microsoft.ru/offext/officedev/vbasdk/).

Реализация внутреннего механизма настройки программ и включение в них дополнительных расширений - тенденция развития функциональности самых различных приложений. Это позволяет делегировать конечному пользователю возможности гибкой адаптации программных продуктов.

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

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

Многие корпоративные клиенты, активно разрабатывающие собственные бизнес-программы, сталкиваются с трудностями, связанными с поддержкой единых стандартов приложений для разных подразделений. Поэтому зачастую предпринимаются попытки делегировать создание этих систем центральной ИТ-группе, которая, как предполагается, должна иметь дело со всеми приложениями, существующими в данной компании. Однако ИТ-подразделениям порой не хватает экспертов, разбирающихся в конкретной области бизнеса, что затрудняет разработку решений. Кроме того, на центральный отдел очень быстро обрушивается вал заявок от разных структур корпорации с требованием реализовать ту или иную функцию. Таким образом, большую актуальность приобретает создание приложений, способных гибко адаптироваться к нуждам конкретных пользователей в различных подразделениях.

VBA помогает решить проблему, позволяя проводить разработку <сверху вниз>, что обеспечивает децентрализацию процесса. Тогда ИТ-подразделение сможет сконцентрироваться на создании базовой инфраструктуры с помощью приложений на базе COM. Затем, интегрировав VBA в эти приложения, можно передать систему экспертам, обладающим достаточными знаниями в предметной области.

Механизм внутреннего программирования нужен, но встает вопрос, что лучше - создавать его самим или взять готовый со стороны? Конечно же, подход выбирает сам разработчик в зависимости от решаемой им бизнес-задачи.

Многие российские фирмы пока явно предпочитают создавать собственную инструментальную платформу. Доводы в пользу такого выбора приводятся довольно веские - существенное снижение (по сравнению с MS Office) требований конечных приложений к ресурсам компьютеров (что действительно важно для массовых продуктов на российском рынке), повышение оперативности и гибкости модернизации, независимость от внешних поставщиков. Кроме того, здесь надо учитывать наличие в России большого числа квалифицированных программистов, готовых делать программы на системном уровне за невысокую плату.

Наверное, сейчас подобный подход вполне оправдан, хотя в стратегической перспективе намечаются проблемы. Во всяком случае, создание внутреннего механизма программирования - весьма трудоемкий процесс, справиться с которым способны лишь очень сильные коллективы разработчиков. (На Западе даже крупные создатели ПО выбирают модель глубокого разделения труда.) И этот путь практически не под силу корпоративным разработчикам, создающим внутрифирменные приложения.

VBA не единственное средство внутреннего программирования приложений. Вспомним, что идеология Office/VBA базируется на двух ключевых элементах:

• унифицированной иерархической объектной модели на основе OLE Automation и COM;
• едином средстве программирования VBA.

И если трудно представить VBA без использования объектной COM-модели, то для управления набором COM-объектов можно применять и другие средства программирования, как это реализовано, например, в программных продуктах фирмы Golden Software.

Технология интеграции VBA основана на использовании специального набора для разработчиков VBA Software Development Kit (SDK). Немного опережая официальное объявление MS Office 2000, весной 1999 г. вышел набор VBA 6.0 SDK, обладающий рядом дополнительных расширений по сравнению с версией для VBA 5.0, а именно поддержкой немодальных диалоговых окон, полной языковой совместимостью с VBA 6.0, улучшенной защитой проектов с помощью паролей, возможностью интеграции дополнительных модулей (Add-Ins) непосредственно в среду разработки и др.

В сентябре появилась новая версия VBA 6.0 SDK 6.1, которая помимо перечисленных выше функций обеспечивает слияние модулей для утилиты Windows Installer, содержит более полную документацию и расширенный набор примеров, а также специальный мастер по интеграции VBA в VB-приложения. VBA 6.0 SDK 6.1 сейчас доступен для изучения, и компакт-диск можно бесплатно заказать или скопировать по адресу http://msdn. microsoft.com/vba/, где также приводится информация о правилах лицензирования и технической поддержке. Но чтобы использовать этот набор в приложениях, нужно купить лицензию.

Перед началом работы с VBA SDK следует деинсталлировать все его предыдущие версии. Кроме того, рекомендуется ознакомиться с документами, находящимися в разделах Release Notes и Welcome Guide, перед тем как приступить к установке SDK с помощью команды Install Now. По завершении инсталляции запустите программу Vbasetup.exe, чтобы выбрать необходимую версию VBA 6.0 - DEBUG или RELEASE (для отладки и создания окончательных вариантов программ соответственно). Нужно иметь в виду, что VBA-компоненты отладочной версии несовместимы с приложениями MS Office 2000, т. е. их следует всегда устанавливать на разные компьютеры. Кроме того, обратите внимание, что для установки VB 6.0 требуется наличие на компьютере Service Pack 3. В противном случае команда Install Now не сможет инсталлировать мастер VBA Integration Wizard.

На компакт-диске также содержатся набор документации с описанием различных вариантов интеграции VBA в бизнес-приложения и в качестве примеров пять приложений, демонстрирующих интеграцию с VBA с использованием ATL, MFC, многопотоковых DLL и специального мастера VBA Integration Wizard.

Основная идея технологии интеграции состоит в том, что механизм VBA вместе со своей средой разработки интегрируется в приложение как внутрипроцессный (in-process) сервер. В результате готовое бизнес-приложение получает дополнительные возможности для создания макрокоманд, аналогичные реализованным в офисных приложениях Microsoft.

Физически интеграция VBA выполняется с помощью ключевого инструмента - Microsoft Application Programmability Component (APC), который представляет собой иерархический набор COM-объектов, формирующих промежуточный программный слой для связи с ядром VBA API (рис. 1). Эти объекты располагаются в библиотеке Microsoft APC 6.0 Object Library (Apc60.dll).

Рис. 1

APC обеспечивает полную поддержку классов, совместимых с Microsoft Foundation Class (MFS) и Active Template Library (ATL), а также ActiveX-объектов. В состав SDK входит полное руководство Visual Basic APC Reference Manual с описанием набора объектов из библиотеки APC. Как использовать компонент APC для реализации конкретных функций VBA, демонстрирует VB Programmer's Guide.

Разработчики приложений на основе VB и Delphi должны обращаться к APC напрямую. При этом для VB-программистов имеется специальный мастер VBA Integration Wizard, существенно упрощающий процесс интеграции. Программисты на С++ и MFC могут использовать специальные программные средства, входящие в состав VBA 6.0 SDK 6.1, называемые APC/C++ и APC/MFC соответственно.

Интеграция VBA в пользовательское VB-приложение

Рис. 2

После инсталляции VBA 6.0 SDK 6.1 в среде разработки VB появляется новый элемент меню Add-Ins - команда VBA Integration Wizard (рис. 2). С ее помощью процесс интеграции VBA в бизнес-приложения, по уверениям Microsoft, должен занять считаные минуты. Проверим это на практике.

Примечание. При установке набора VBA 6.0 SDK 6.1 мы выбрали вариант RELEASE - создание окончательных вариантов программ.

Пример интеграции VBA

Для демонстрации работы мастера VBA Integration Wizard используем простой текстовый редактор, созданный в статье (надеемся, что вы его сохранили). Загрузим наш проект TxtEdit.vbp в среду разработки VB, а затем запустим там команду VBA Integration Wizard.

Рис. 3

Шаг 1. Мастер выводит на экран диалоговое окно Introduction (рис. 3) и сразу же проверяет тип проекта на совместимость с VBA. Чтобы интегрироваться с механизмом VBA на базе COM, приложение с внедренным VBA должно иметь тип ActiveX EXE. Если тип проекта требует изменения, мастер сообщит о том, что автоматически поменяет эту установку.

Рис. 4

Шаг 2. В окне Main Form Selection необходимо задать основную форму пользовательского интерфейса (рис. 4), в данном примере это frmEdit. Мастер создает процедуру, которая будет запускать механизм VBA как часть инициализации основной формы, а также команду Tools|Macro для запуска интегрированной среды разработки VBA из бизнес-приложения и доступа к диалоговому окну Macros.

Рис. 5

Шаг 3. Мастер предлагает указать местонахождение Реестра для хранения VBA-установок (рис. 5). Бизнес-приложение может использовать такие установки совместно с Microsoft Office, если выбирается предложенный по умолчанию ключ Реестра. Заданный же уникальный ключ гарантирует, что проводимые в будущем настройки интегрированной среды разработки (IDE) будут распространяться только на экземпляр VBA, внедренный в бизнес-приложение. Для нашего текстового редактора возьмем первый вариант - Use the default VBA registry key.

Помимо этого в окне Language and Registry Options можно выбрать язык для среды разработки VBA IDE. К сожалению, русского среди предложенных не оказалось, поэтому оставим английский.

Рис. 6

Шаг 4. Окно Global Object Definition позволяет указать имя глобального объекта для приложения (рис. 6). Данный объект предоставляет удобную точку входа в модель, а обращение к его методам и свойствам осуществляется напрямую, без уточнения имени этого объекта. Мастер автоматически генерирует модуль класса для глобального объекта, а также создает используемые по умолчанию свойства объекта (Application, Name, Parent и VBE). Заменим предлагаемое имя глобального объекта - CApplication на Application.

Рис. 7

Шаг 5. Мастер выводит диалоговое окно VBA Project Name (рис. 7) и приглашает подтвердить или изменить устанавливаемое по умолчанию имя нового VBA-проекта. Оставим также неизменным указанное здесь имя - VBAProject.

Рис. 8

Шаг 6. В последнем окне, Summary of Actions to be Performed (рис. 8), содержится перечень действий, которые будут выполнены мастером в процессе интеграции VBA в бизнес-приложение. Что же будет сделано в нашем примере? Мастер предлагает следующее:

• изменить тип проекта на ActiveX EXE;
• добавить модуль класса APCIntegration для доступа к библиотеке Microsoft APC Library;
• вставить модуль MainModule;
• добавить процедуру Sub Main к модулю MainModule для запуска объекта;
• дополнить процедуру Sub Main текстом, запускающим форму frmEdit;
• добавить команду меню к форме frmEdit для доступа к интегрированной среде разработки VBA IDE;
• добавить команду меню к форме frmEdit для доступа к диалоговому окну Macros;
• установить английский язык для среды разработки VBA IDE;
• использовать предлагаемый по умолчанию ключ Реестра;
• создать класс Application для использования в качестве объекта самого верхнего уровня (объекта Application);
• установить глобальный объект с именем класса Application;
• при запуске открывать проект VBAProject.

Именно эти операции мы задали на предыдущих шагах. Чтобы подтвердить их правильность, щелкнем на кнопке Finish, и мастер сгенерирует соответствующие процедуры.

Запустим проект TxtEdit.vbp на выполнение (при первом запуске появится окно Project Properties|Debugging, где нужно, ничего не изменяя, нажать ОК). Теперь наш текстовый редактор обладает определенными базовыми функциями, позволяющими использовать VBA, например переходить в среду разработки VBA IDE. Ситуация любопытная: работая в среде VB, мы запускаем в ней проект, и там можем, в свою очередь, работать еще в одной, очень похожей среде VBA. Но прежде чем осваивать новые возможности TxtEdit.vbp, изучим то, что создал мастер.

Интеграция VBA базируется на применении библиотеки APC. Мастер же, по сути дела, формирует начальный текст программы для подключения и инициализации основных функций APC в двух созданных им новых модулях классов APCIntegration и Application, присоединенных к исходному проекту. Кроме того, мастер вносит ряд дополнений в существовавшее описание форм. Все программные фрагменты, созданные им, обозначаются логическими скобками в виде комментариев:

'--------------------
'**** VBA Integration code, begin insert
...
'**** VBA Integration code, end insert 
'--------------------

В модуле основной формы frmEdit определяется класс APCIntegration (фактически это объект среды VBA данного приложения):

Public m_apcInt As APCIntegration

затем в процедуре Form_Load создается экземпляр глобального объекта приложения, после чего выполняются необходимые операции инициализации VBA:

Dim appObj As Application
'
Set m_apcInt = New APCIntegration
Set appObj = New Application 
m_apcInt.Initialize appObj, Me.hwnd

Кроме того, в модуль формы добавляются новые дополнительные элементы - меню Tools, команды Macros и Visual Basic Editor, а также текст событийных процедур (см. листинг 1).

Private Sub mnuVbeMenuItem_Click()
	' Переход в среду VBE
	m_apcInt.showVBE
End Sub
Private Sub mnuMacrosMenuItem_Click()
	' Диалоговое окно Macros будет доступно
	' только после загрузки проекта
	m_apcInt.showMacroDialog
End Sub
Private Sub Form_QueryUnload(cancel As _
	Integer, unloadmode As Integer)
	' Это событие происходит при закрытии
 формы
	' или всего приложения
	m_apcInt.QueryUnload cancel, unloadmode
End Sub

Описание события QueryUnload отсутствует в MSDN Library Visual Studio 6.0, но включено в MSDN Library MS Office 2000 Developer. В модуле формы frmEdit также появится новая процедура, созданная мастером (см. листинг 2).

Private Sub Form_KeyDown(KeyCode As _
	Integer, Shift As Integer)
	' Обработка комбинаций клавиш 
	'[Alt][F11]
	If KeyCode = vbKeyF11 And Shift = _
		vbAltMask Then m_apcInt.showVBE 
	'[Alt][F8]
	If KeyCode = vbKeyF8 And Shift = _
		vbAltMask Then m_apcInt
.showMacroDialog 
End Sub

Дело в том, что Menu Editor в среде VB не поддерживает использование комбинаций +<клавиша>, поэтому для их обработки требуется создать приведенную выше процедуру.

Модуль класса APCIntegration имеет значение свойства Instancing=Private и включает внутренние объекты: General, Class, m_apcHost и m_ApcProject. Подпрограммы секции General представляют собой реализацию методов объекта APCIntegration:

В этом модуле также создается экземпляр объекта Apc, занимающий самое верхнее положение в иерархии объектов библиотеки MSAPC:

Private WithEvents m_apcHost As MSAPC.Apc
	Private Sub Class_Initialize()
	Set m_apcHost = New Apc
End Sub

и выполняется начальная установка свойств объекта Apc (обращение к этому методу производится из процедуры Form_Load) (см. листинг 3).

Public Sub Initialize(appObj As _
	Application, hwnd As Long)
	' hWnd (внутренний идентификатор 
	' объектов Windows) для хост-приложения
	m_apcHost.hwnd = hwnd
	'
	' глобальный объект приложения
	m_apcHost.ApplicationObject = appObj
	'
	' имя хост-приложения для ссылки 
	' на него из среды VBE 
	m_apcHost.HostName = App.Title
	'
	' ключ для лицензирования
	m_apcHost.LicenseKey = _
"16175148714896599659AFABD8ED3C2A416B45E4C
D6F5484BD8CED"
	'
	' ключ Реестра, где будут храниться 
	' настройки среды IDE
	m_apcHost.RegistryKey = "Common"
	'
	' кодовая таблица, используемая в VBA IDE
	m_apcHost.Locale = 1033
	'
	' фильтр файлов для диалогового окна
 References в VBA
	m_apcHost.FileFilter = "All Reference
 Files" & _
		"(*.olb, *.tlb, *.dll, *.exe, *.ocx)"
 & Chr$(0) & _
		"*.olb;*.tlb;*.dll;*.exe;*.ocx"
 & Chr$(0)
	'
	' создание проекта по умолчанию
	Set m_ApcProject = m_apcHost.Projects.Add( _ 
		axProjectNormal, "VBAProject")
	'
	' установка флага проекта как False (Ложь),
	' благодаря чему приглашение сохранить проект
	' не будет выдаваться до тех пор, пока
 пользователь
	' не произведет какие-либо изменения
	m_ApcProject.Dirty = False
End Sub

Вот основные параметры объекта Apc, которые нужно установить:

Это далеко не все свойства объекта Apc - пользователь может дополнить текст процедуры, чтобы сделать нужные установки самостоятельно. В этом же модуле реализованы и другие методы объекта APCIntegration. Так, чтобы вывести на экран или сделать невидимой среду разработки VBA IDE, следует воспользоваться свойством Visible объекта Ide компонента APC:

Public Sub showVBE() 
	m_apcHost.Ide.Visible = True
End Sub

Набор открытых VBA-проектов управляется при помощи коллекции Projects из библиотеки APC. Для создания нового VBA-проекта просто вызовите Apc.Projects.Add и сохраните результат в переменной MSAPC.Project. Мастер VBA Integration Wizard помещает в модуль класса APCIntegration следующий текст:

Private WithEvents m_ApcProject _
	As MSAPC.Project
Set m_ApcProject = m_apcHost.Projects.Add _
	(ProjectGlag, "VBAProject")

ProjectFlag представляет собой параметр, определяющий тип создаваемого приложения:

Создание VBА-проекта в приложении TxtEdit

Запустим TxtEdit и перейдем в среду VBE (команда Tools|VBE). В окне Project мы увидим содержащийся здесь проект VBAProject, где нет ни одного программного компонента. Командой Tools|Macros создадим макрокоманду (при этом автоматически создастся программный модуль) с названием MyMacro, в которой напишем всего одну строку:

MsgBox "Моя макрокоманда работает в среде VBE!"

Она доступна через команду Tools|Macros как из VBE, так и из TxtEdit. Но создавать новые макрокоманды из среды TxtEdit можно только при существующем программном модуле в VBAProject. Теперь среда VBE приняла более знакомый вид (рис. 9), поэтому дальнейшие действия таковы: создаем процедуры программного модуля, формы, размещаем на них элементы управления и т. д.

Рис. 9

Сохранение и загрузка VBA-проектов

Макрокоманда MyMacro действительно выполняется, но пока она не делает ничего полезного для редактора TxtEdit. Мы можем написать какой-нибудь программный макрос в VBE, но тогда придется сохранять создаваемый проект, чтобы вносить некоторые коррективы в исходную VB-программу. И тут встретимся с проблемами, в которых нужно разобраться.

Выполним следующие операции:

1. В среде VBE (File|Save VBAProject) сохраним проект под именем MyVBAPr.vba. Затем вернемся в TxtEdit, запишем в текущий пустой документ фразу <Документ 1> и сохраним его под именем Doc1.rtf. Закроем приложение TxtEdit (т. е. вернемся в среду VB).
2. Опять запустим TxtEdit и загрузим Doc1.rtf. Перейдем в VBE, где вновь увидим пустой проект VBAProject. Попробуем загрузить MyVBAPr.vba (File|Open Project), но не тут-то было: выдается сообщение об ошибке . Что же делать?

Дело в том, что VBE использует два типа проектов. (Они разные, хотя и имеют одинаковое расширение .VBA, что вносит явную путаницу!) С первым из них мы уже познакомились: в окне Project он всегда называется стандартно - VBAProject (их может быть несколько). Именно этому компоненту соответствует объект m_ApcProject, создаваемый в процедуре Initialize модуля APCIntegration.

Второй тип VBA-проекта создается VBE-командой File|New Project (будем называть его просто Project в отличие от VBAProject). Такой проект можно сохранять и открывать заново, применяя несколько вариантов одновременно. В нем можно записывать программные модули и формы и т. д. Однако в качестве макрокоманд нашего основного приложения могут использоваться только процедуры VBAProject, подпрограммы Project являются недоступными (рис. 9а).

Рис. 9a

Для решения задачи нужно внести дополнения в текст программы, созданный мастером VBA Integration Wizard. Закроем приложение TxtEdit и вернемся в среду VB. В модуль класса APCIntegration запишем процедуру открытия существующего VBAProject (см. листинг 4).

Friend Sub OpenNewVBAProject()
	Dim stg As MSAPC.Storage, stFilter _
		As String, stFileName As String
	'
	stFilter = "VBA Files (*.vba)" & _
		Chr$(0) & "*.VBA" & Chr$(0) _
		& "All Files (*.*)" & Chr$(0) & _
		"*.*" & Chr$(0)
	stFileName = FileOpenSave(OFN_NOCHANGEDIR, _
		CurDir$, stFilter, , ".VBA", , , _
		m_apcHost.hwnd, True)
	If Len(stFileName) > 0 Then
		Set stg = OpenStorage(stFileName)
		Set m_ApcProject = _
			m_apcHost.Projects.Open _
			(axProjectNormal, stg)
		m_stFileName = stFileName
	End If
End Sub

Кроме того, откорректируем процедуру Initialize этого же модуля. Там нужно заменить:

' Create a default project
Set m_ApcProject = _
	m_apcHost.Projects.Add(axProjectNormal, _
	"VBAProject")

на текст (см. листинг 5).

Dim msgResult As VbMsgBoxResult
msgResult = MsgBox("Загрузить ранее
 созданный VBAProject?", _
	vbYesNo, App.Title)
If msgResult = vbYes Then
	' открыть существующий проект
	Call OpenNewVBAProject 
End If
If Len(m_stFileName) = 0 Then
	' создать проект по умолчанию
	Set m_ApcProject = _
		m_apcHost.Projects.Add _
		(axProjectNormal, "VBAProject")
End If

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

Обновленное приложение TxtEdit теперь может загружать файлы нескольких видов: текстовые документы, а также VBA-проекты типов VBAProject и Project. Связь между средой редактора и VBE может осуществляться путем обращения к макрокомандам VBAProject. Пока мы написали только одну макрокоманду, которая не имеет никакого функционального отношения к TxtEdit, она лишь просто может заявить о том, что действительно получает управление и готова выполнять наши программы. Добавим в нее что-нибудь полезное.

Сейчас мы находимся в среде VB6 с загруженным проектом TxtEdit. Запустим его на выполнение; далее, ответив положительно на вопрос <Загрузить ранее созданный VBAProject?>, загрузим MyVBAPr.vba и перейдем в среду VBE.

Рис. 10

Связь макроса в среде VBE с самими офисными программами и их документами в MS Office выполняется через систему объектов. Какие же объекты TxtEdit доступны нам? Для ответа на этот вопрос откроем окно Object Browser (F2) и в списке Project/Library выделим только TxtEdit (рис. 10). Здесь видно, что проект содержит объект Application, имеющий компоненты Application, Parent, Name и VBE. Модернизируем макрокоманду MyMacro так, чтобы прочитать параметр Name, являющийся свойством символьного типа:

MyVar$ = TextEdit.Application.Name
MsgBox "Имя = " & MyVar$

Запустив на выполнение MyMacro в текстовом редакторе, мы увидим окно сообщения с названием нашего проекта - TxtEdit. Это уже шаг вперед! Однако в некоторых случаях и здесь можно столкнуться с проблемами.

Идея взаимодействия VBA-проектов из среды VBE с нашим исходным приложением становится наконец достаточно понятной: макрос работает с ActiveX-компонентами приложения. И возможности управления приложением из среды VBE полностью зависят от функциональности ActiveX-компонентов.

VBA Integration Wizard создал модуль класса Application, предназначаемый для формирования одноименного объекта, через свойства и методы которого обеспечивается взаимодействие макроса с исходным приложением. Мастер записал туда минимальный текст, пока никак не отражающий специфики конкретной прикладной программы и позволяющий получать лишь самые общие сведения о ней в виде свойств объекта Application (см. листинг 6).

Public Property Get Application() As Application

	' Возвращает объект приложения, 
	' связанный с текущим объектом.
	' В данном случае объект просто 
	' возвращает сам себя
	Set Application = Me
End Property
Public Property Get Name() As String
	' Возвращает имя приложения
	Name = frmEdit.m_apcInt.ApcHost.HostName
End Property
Public Property Get Parent() As Application
	' Возвращает прямой родительский 
	' объект текущего объекта.
	' В данном случае объект просто 
	' возвращает сам себя
	Set Parent = Me
End Property
Public Property Get VBE() As Object
	' Возвращает интерфейс самого 
	' высокого уровня для работы с 
	' объектной моделью VBE
	Set VBE = frmEdit.m_apcInt.ApcHost.VBE
End Property

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

Чтобы пользователь получил возможность управлять цветом выделенного текста документа, в редакторе нужно добавить в модуль класса Application следующий текст для чтения-записи нового свойства SelColor (см. листинг 7).

Property Get SelColor() As Long
	' Чтение кода цвета выделенного текста
	' в редакторе TxtEdit
	SelColor = frmEdit.RichTextBox1.SelColor
End Property
Property Let SelColor(NewSelColor As Long)
	' Установка цвета выделенного текста
	' в редакторе TxtEdit
	If NewSelColor < 0 Then
		' установка по умолчанию
		frmEdit.RichTextBox1.SelColor =
 RGB(250,
 250, 250)
	Else
		' новое значение
		frmEdit.RichTextBox1.SelColor =
 NewSelColor
	End If
End Property

Теперь мы можем написать VBA-проект, который будет использовать новое свойство объекта, в частности корректируя его с помощью макрокоманды (см. листинг 8).

Sub ModifySelColor()
	' Чтение и коррекция цвета выделенного
	' текста в редакторе TxtEdit
	Dim SelColor&, a$
	SelColor = TxtEdit.Application.SelColor
	a$ = "Коррекция цвета" & vbCrLf & _
		"выделенного текста." & vbCrLf
 & vbCrLf & _
		"Введите новое значение
 (16-тиричное)"
	a$ = InputBox(a$, "Макрокоманда
 ModifySelColor
 среды VBE", _
		Hex$(SelColor))
	If a$ <> "" Then ' установка
 нового
 значения цвета текста
		a$ = "&h" + a$
		TxtEdit.Application.SelColor
 = CLng(a$)
	End If
End Sub

Сохраняем VBAProject (MyVBAPr.vba), закрываем приложение TxtEdit, а затем и среду VB, сохранив исходный текст проекта TxtEdit.vbp.

Поздравляем всех, кто вместе с авторами добрался до этого места в примере! Нам впервые удалось создать собственное приложение с интегрированным в него VBA (рис. 11). Осталось приложить еще немного усилий, чтобы разработать объектную модель и написать соответствующие ActiveX-компоненты, и тогда мы получим текстовый редактор, не уступающий MS Word 2000 по функциональным возможностям и гибкости программирования.

Рис. 11

Подведение итогов

В ходе выполнения примера мы осуществили пять операций.

1. Провели в среде VB интеграцию VBA в исходное приложение. Это было реализовано в виде создания в VB-проекте двух модулей класса: APCIntegration - инициализация и связь со средой VBE, Application - свойства и методы объекта исходного приложения. Мастер внес также ряд корректив в исходные программные модули проекта.
2. Вручную внесли дополнения в frmEdit и APCIntegration, чтобы обеспечить возможность загрузки сохраненного ранее VBA-проекта.
3. Вручную откорректировали frmEdit, чтобы порядок инициализации главной формы проекта стал совместимым с VBE.
4. Написали простой текст для управления свойством объекта приложения (изменение цвета выделенного текста в документе).
5. В среде Visual Basic 6.0 запустили исходное приложение TxtEdit.vbp на выполнение. В текстовом редакторе появилась среда VBE, с помощью которой мы написали макрокоманду для управления цветом выделенного текста в документе.

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

В отсутствие VBA SDK нам пришлось бы решать подобную задачу каким-либо из двух способов.

1. Использование среды Visual Basic (или другой подобной программы). В этом случае мы бы действовали так:

• реализовали исходное VB-приложение в виде ActiveX-сервера (EXE-модуль);
• загрузили среду Visual Basic и создали в ней проект (аналог макроса), который бы работал с ActiveX-компонентами внешнего приложения.

Однако тогда каждому пользователю придется ставить на компьютер VB, а кроме того, отсутствует связь пользовательского приложения со средой VB (VB не является ActiveX-сервером).

2. Внесение расширений в приложение в виде прямой коррекции его исходного текста. Недостатки данного способа очевидны: такие исправления может делать только один человек - автор программы.

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

И наконец, последнее замечание. Созданное нами приложение TxtEdit работает с исходными файлами двух типов:

• текстовые документы (TXT и RTF), для обработки которых и предназначено приложение;
• VBA-проекты, которые загружаются в среде VBE и позволяют расширять функции исходного приложения (созданного в VB 6.0).

Возможен и вариант, реализованный в программах MS Office, когда текст VBA-приложения хранится вместе с обрабатываемым документом. Именно такой подход реализован в приложении SdiNote, входящем в качестве примера в VBA 6.0 SDK 6.1.