Объектная модель VBA
Таблица 21.1. Описание объектов VBA
Объект
|
Тип
|
Описание
|
||
Collection |
Объект из биб-
|
Упорядоченная
совокупность объектов, с |
||
|
лиотеки VBA
|
которой можно
обращаться как с единым объектом |
||
Debug |
Объект |
Позволяет выводить
текущую информа- |
||
|
|
цию в окно отладки
непосредственно во |
||
|
|
время выполнения
кода на VBA |
||
Dictionary |
Объект из биб-
|
Объект, представляющий
пару — ключ и |
||
|
лиотеки Scripting
|
элемент. Является
аналогом ассоциа- |
||
|
|
тивной памяти
|
||
Drives |
Семейство из
|
Содержит объекты
Drive, предоставляю- |
||
|
библиотеки |
щие информацию
(только для чтения) обо |
||
|
Scripting |
всех доступных
дисках. Является свойст- |
||
|
|
вом объекта
FileSystemObject |
||
Drive |
Объект- из биб-
|
Предоставляет
доступ к свойствам кон- |
||
|
лиотеки Scripting
|
кретного локального
или сетевого диска |
||
Err |
Объект из биб-
|
Предназначен
для обработки ошибок |
||
|
лиотеки VBA
|
Automation и
ошибок модулей VBA во |
||
|
|
время выполнения
кода на VBA |
||
Files |
Семейство из
|
Содержит объекты
класса File и пред- |
||
|
библиотеки |
ставляет совокупность
всех файлов в |
||
|
Scripting |
данной папке.
Является свойством объ- |
||
|
|
екта FileSystemObject
|
||
File |
Объект из биб-
|
Предоставляет
доступ ко всем свойст- |
||
|
лиотеки Scripting
|
вам файла на
диске |
||
FileSystemObject
|
Объект из биб-
|
Предоставляет
доступ к файловой сис- |
||
|
лиотеки Scripting
|
теме компьютера
|
||
Folders |
Семейство из
|
Содержит объекты
Folder и представ- |
||
|
библиотеки |
ляет совокупность
всех папок внутри |
||
|
Scripting |
данной папки.
Является свойством объекта Folder (свойство называется |
||
|
|
SubFolders)
|
||
Folder |
Объект из биб-
|
Предоставляет
доступ ко всем свойст- |
||
|
лиотеки Scripting
|
вам папки на
диске |
||
Объект
|
Тип
|
Описание
|
||
Texts tr earn
|
Объект из библиотеки
Scripting |
Обеспечивает
последовательный доступ к текстовому файлу |
||
UserForms |
Семейство из
библиотеки VBA |
Содержит объекты
Object, соответствующие объектам UserForm, и пред- |
||
|
|
ставляет совокупность
пользовательских форм, загруженных в данный момент в приложение. Это
семейство является свойством объекта Global из библиотеки VBA |
||
UserForm |
Абстрактный
объект VBA Object |
Представляет
форму, являющуюся частью пользовательского интерфейса приложения.
Характеристики этого объекта определяются пользователем |
||
Продемонстрируем небольшой пример работы с рядом объектов VBA. Мы хотим вывести в окно Immediate посредством метода Print Объекта Debug
литеры, соответствующие логическим дискам компьютера. Для этого мы указали ссылку на объект, являющийся семейством Drives, после чего, воспользовавшись циклом For Each . .. Next, вывели требуемые значения посредством свойства DriveLetter объекта Drive.
Замечание
Цикл For Each . . . Next очень полезен при работе с семействами, поскольку не требуется знать количество объектов семейства и можно устраивать цикл по всей структуре. В противном случае необходимо было бы воспользоваться свойством count.
Программа 21.1. Использование объектов VBA
Sub ShowDriveList()
Set fsystem = CreateObject("Scripting.FileSystemObject")
Set systemDrives = fsystem.Drives
For Each d In systemDrives
Debug.Print d.DriveLetter
Next End Sub