Стив Каммингс - VBA для чайников

Dim objOutlook As Outlook.Application

Dim objOLNamespace As Outlook.NameSpace

Dim colFolders As Outlook.Folders ' коллекция папок

Dim objPeopleFolder As Outlook.MAPIFolder

Dim colPeople As Outlook.Items ' коллекция контактов

Dim objPerson As Object ' один отдельный контакт

Dim strName As String

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

При создании объекта из внешнего приложения используется функция СrеateObject. Она открывает соответствующее приложение, которое и создает нужный объект. Возвращаемое функцией значение будет ссылкой на объект, которую можно присвоить подходящей переменной. А чтобы открыть внешнее приложение с уже готовым файлом или документом, используйте функцию GetObject.

Вот программный код процедуры из примера Outlook+Visio, создающей экземпляры нужных объектов:

Sub PeopleDiagram()

Set objOutlook = CreateObject("Outlook.Application")

' Используйте CreateObject("Outlook.Application.8")

' с другой версией Outlook

Set objOLNamespace = objOutlook.GetNamespace("MAPI")

Set colFolders = objOLNamespace.Folders ' все папки

Set objPeopleFolder = colFolders.Item("Personal Folders")

' определение переменных для движения внутрь папки

Set colFolders = objPeopleFolder.Folders

Set objPeopleFolder = colFolders.Item("Contacts")

Set colPeople = objPeopleFolder.Items

' вызов процедуры типа Sub, использующей данные Outlook

ChartAName

End Sub

Обратите внимание, что во многих случаях- и в этом примере тоже- функция СrеateObject нужна только один раз. После того как объект внешнего приложения создан, вы можете использовать его свойства и методы. Как правило, свойства включают другие объекты (в данном случае коллекция Folders, папки Personal Folders и Contacts, a также коллекцию объектов внутри папки Contacts ).

Приложение, которое вы открываете из своего программного кода, выполняется в скрытом виде - на экране оно не отображается. Это очень удобно, если вы хотите использовать в своей программе данные другого приложения, не раздражая при этом пользователя. Но иногда все же нужно показать приложение в его обычной форме. Тогда, в зависимости от приложения, нужно либо установить для свойства Visible значение True, либо использовать метод Display, как здесь: objPeopleFolder.Display

Теперь, наконец, вы готовы использовать объекты внешнего приложения в своей программе точно так же, как и те, которые пришли вместе с вашим VBA-приложением. Вот пример того, как это сделать в Visio при создании организационной диаграммы, использующей имена из папки Contacts, принадлежащей Outlook:

Sub ChartAName()

For Each objPerson In colPeople

strName = objPerson.FullName

...( программный код построения диаграммы Visio на основе этих данных)

Next

End Sub

Программный код на Web-странице не содержит этой процедуры, поскольку я не знаю наверняка, что у вас есть Visio. Вместо вызова этой процедуры в процедуре PeopleDiagram просто отображается диалоговое окно при каждом обращении к данным Outlook. (Правда, у вас может не оказаться также и Outlook, в таком случае данный пример вообще не будет работать.)

Если вы собираетесь использовать VBA для работы с данными, хранящимися в "реальных" базах данных типа файлов Microsoft Jet (формат баз данных, используемых

Access), SQL Server или dBase, то вам, мой друг, определенно потребуется помощь. И придет она от объектной библиотеки. Объектная библиотека для работы с базами данных превращает базы данных и их компоненты - таблицы, запросы и отчеты - в настоящие объекты со свойствами и методами. А когда база данных представлена в виде множества объектов, вам уже не нужно копаться в деталях ее структуры. Более того, один и тот же набор объектов можно использовать для работы со многими базами данных различных типов. Подробные сведения об управлении базами данных с помощью VBA изложены в главе 17.

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

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

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

Учитывая меньшую значимость, я не говорю здесь о чтении и записи файлов документов вашего "базового" VBA-приложения. Ясно, что VBA-программы могут работать с информацией, содержащейся в таких документах, и обращаться с файлами документов как с единым целым (обычно с помощью методов Open и Save).

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

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

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

Основные средства, необходимые для работы с файлами как с объектами, обеспечиваются объектной библиотекой Microsoft Scripting Runtime. Прежде чем создавать относящийся к файлам программный код, в VBA-проект нужно добавить ссылку на эту библиотеку. А перед тем, как сделать это, нужно убедиться в том, что соответствующая библиотека установлена на компьютере.

Библиотека Microsoft Scripting Runtime содержится в файле с именем SCRRUN.DLL, размещенном в папке Windows\System. Библиотека устанавливается автоматически при инсталляции Windows 98 или Windows NT с дополнением Option Pack, а также если в систему устанавливается VBA 6. Если вы работаете с VBA 5 в Windows 95 или если по каким-то другим причинам библиотеки Microsoft Scripting Runtime в вашей системе не оказалось, загрузите ее на свой компьютер с Web-страницы Microsoft для разработчиков (msdn.microsoft.com/scripting/).