Метод Add

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

Workbooks.Add

Этот код эквивалентен выполнению в Excel команды Файл > Создать. Чтобы добавить новый лист в рабочую книгу, используется код

Worksheets.Add

Свойство Count

Коллекции имеют полезное свойство, которое называется Count (Счет). Это свойство хранит количество элементов, составляющих коллекцию. Если вы хотите узнать, сколько листов в текущей рабочей книге, примените код

Dim iWSCount As Integer

IWSCount = Worksheets.Count

Можно найти много применений свойству Count. Предположим, вы создаете приложение, где рабочая книга должна содержать отдельный лист на каждый рабочий день недели. С помощью свойства Count можно проверить, содержит ли рабочая книга ровно пять рабочих листов. Код процедуры представлен в листинге 8.4.

Листинг 8.4. Применение свойства Count

1: Sub КоличРабЛистов()

2:  Dim iWSCount As Integer

3:  Dim sMessage As String

4:

5:  iWSCount = Worksheets.Count

6:

7:  If iWSCount <> 5 Then

8:   sMessage = "Книга содержит " & iWSCount

9:   sMessage = sMessage & " листов. Должно быть 5 листов."

10:   MsgBox sMessage

11:  End If

12: End Sub

Резюме

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

Вопросы и ответы

Вопрос. Что определяет объекты Excel?

Ответ. Все объекты имеют свойства и методы. Свойства управляют атрибутами, внешним видом и поведением объектов. Методы - это действия, которые может выполнять объект.

Вопрос. Почему объектная модель Excel имеет иерархическую структуру?

Ответ. Это отражение концепции вложения объектов. Многие объекты имеют вложенные объекты и сами являются подмножеством других объектов более высокого уровня. Отсюда вытекает иерархическая структура объектной модели Excel.

Практикум

С помощью тестов и упражнений вы проверите, насколько хорошо усвоили изложенный материал. Ответы на вопросы смотрите в Приложении.

Тесты

1. Как задать значение свойству?

2. Как вызвать на исполнение метод?

3. Какой оператор назначает объект переменной-объекту?

4. Истинно или ложно следующее утверждение: только объекты имеют свойства и методы, но не коллекции?

5. Как создать новый элемент коллекции?

Упражнение

Используя окно просмотра объектов Object Browser или справочную систему Visual Basic, найдите следующие свойства.

Для объекта Application:

• каталог, где инсталлирована программа Excel;

• используемую операционную систему;

• зарегистрированное имя пользователя программы Excel.

Для объекта Workbook:

• где сохранена рабочая книга.

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

Совет. Объект Application имеет свойство ThisWorkbook (Текущая рабочая книга), которое содержит имя текущей рабочей книги. Используйте эту информацию для определения места сохранения рабочей книги.

9-й час. Основные объекты Excel

Пришло время для серьезной работы с объектами Excel. В этом часе основное внимание будет уделено трем основным и часто используемых объектам: Application, Workbook и Worksheet. Кроме того, вы узнаете, как работать с их свойствами и методами.

В этом часе будут рассмотрены следующие вопросы.

• Роль в VBA объекта Application.

• Создание и управление объектами Workbook.

• Применение объекта Worksheet.