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

Вопрос. Все ли Windows-приложения поддерживают технологию автоматизации?

Ответ. Нет, только те приложения, которые имеют для этого специальные средства.

Вопрос. Поддерживают ли автоматизацию приложения, работающие под DOS?

Ответ. Нет, такие приложения не могут поддерживать технологию автоматизации. Для управления DOS-приложениями попытайтесь воспользоваться методом SendKey, описание которого можно найти в справочной системе VBA.

Практикум

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

Тесты

1. Какой оператор применяется для создания экземпляра приложения-сервера?

2. Истинно или ложно следующее утверждение: кроме объектов Excel и VBA в окне просмотра объектов можно просматривать только объекты библиотек, на которые созданы ссылки?

3. В примере этого часа программа Excel играла роль ___________ приложения (приложения-___________).

4. Истинно или ложно следующее утверждение: Excel можно использоватьтолько как приложение-клиент?

5. Как установить ссылку на библиотеку объектов?

6. Истинно или ложно следующее утверждение: чтобы создать доступ к программе Word из другого приложения, надо применить технологию автоматизации?

7. Истинно или ложно следующее утверждение: все приложения Microsoft Office в той или иной степени поддерживают технологию автоматизации?

Рис. 23.5. Таблица данных Excel

Рис 23.6. Документ Word

Упражнение

Создайте таблицу данных Excel, как на рис. 23.5. Создайте текстовый документ Word, представленный на рис. 23.6. Вставьте в этот документ необходимые закладки. Создайте процедуру, которая копировала бы информацию из таблицы данных Excel и вставляла в соответствующие места документа Word.

24-й час. Выполнение процедур

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

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

• Использование процедур Auto_Open и Auto_Close.

• Процедуры, выполняемые при наступлении определенных событий.

• Создание надстроек Excel.

Автоматическое выполнение процедур

Часто возникают ситуации, когда какие-либо процедуры необходимо выполнить при открытии или закрытии рабочих книг. Excel предлагает простой способ выполнения таких процедур. Если, например, процедура должна выполняться при открытии книги, то просто назовите ее Auto_Open.

Процедуру Auto_Open можно использовать для решения следующих задач:

• инициализация значений переменных;

• добавление пользовательских меню и панелей инструментов;

• ввод (инициализация) данных в рабочий лист;

• отображение начального окна (окна приглашения) приложения;

• изменение установок приложения (таких как отображение сетки рабочего листа или формат вывода нулевых значений);

• вставка рабочих листов;

• выполнение форматирования;

• удаление ненужных данных из рабочего листа.

Процедура, выполняемая при закрытии рабочей книги, называется Auto_Close. Вот типичные задачи, выполняемые этой процедурой:

• удаление ненужных рабочих листов;

• сохранение рабочей книги под другим именем в качестве резервной копии;

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

Можно использовать обе или только одну из этих процедур.

Имена этих процедур не чувствительны к применяемому регистру, т.е. их можно писать как строчными, так и прописными буквами.

Если рабочая книга открывается из процедуры VBA, то процедуры Auto не выполняются. В этом случае для выполнения этих процедур используется метод RunAutoMacros.

Приведем примеры процедур Auto_Open и Auto_Close. Откройте новую рабочую книгу, вставьте модуль и в этом модуле создайте процедуру Auto_Open, код которой показан в листинге 24.1.

Листинг 24.1. Пример процедуры Auto Open

1: Sub Auto_Open()

2:  Range("A1").Value = "Текущая дата:"

3:

4:  Range("B1").FormulaR1C1 = "=NOW()"

5:  Columns("A:B").EntireColumn.AutoFit

6:

7:  With ActiveWindow

8:   .DisplayHorizontalScrollBar = False

9:   .DisplayVerticalScrollBar = False

10:  End With

11:  With Application

12:   .DisplayFormulaBar = False

13:   .DisplayStatusBar = False

14:  End With

15: End Sub

Эта процедура вводит в рабочий лист текущую дату и время и удаляет из окна Excel полосы прокрутки, строку формул и строку состояния. Если надо восстановить внешний вид окна Excel после закрытия этой рабочей книги, создайте еще процедуру Auto_Close, код которой приведен в листинге 24.2.

Листинг 24.2. Пример процедуры Auto Close

1: Sub Auto_Close()

2:

3:  With ActiveWindow

4:   .DisplayHorizontalScrollBar = True

5:   .DisplayVerticalScrollBar = True

6:  End With

7:  With Application

8:   .DisplayFormulaBar = True

9:   .DisplayStatusBar = True

10:  End With

11: End Sub

Сохраните эту рабочую книгу пол именем Час24. Для тестирования процедур закройте рабочую книгу, а затем откройте ее снова. Вы увидите текущую дату в ячейке В1, а также заметите отсутствие полос прокрутки, строки формул и строки состояния (рис. 24.1). Закройте эту рабочую книгу и откройте новую, чтобы убедиться в том, что привычный вид окна Excel восстановлен.

Рис. 24.1. Процедуры, выполняемые при открытии рабочих книг, полезны для настройки среды Excel