15. Операции с приложением и объект Application

Лабораторная работа 15.1 Операции с объектом Application и диалоговыми окнами Excel

Объект Excel.Application в макросах VBA, программный запуск Excel

Задание:

Откройте редактор Visual Basic в Microsoft Word и создайте в проекте Normal.dot макрос, который бы:

программным образом запускал Excel;

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

после выбора пользователем рабочей книги открывал бы ее в Excel.

Примечание.

По умолчанию возможность запуска макросов в Word 2003 отключена так же, как и в Excel. Для того, чтобы ее включить, в меню Сервис | Макрос | Безопасность переставьте переключатель в положение Низкая, а потом закройте Word и снова его откройте.

Решение:

1. Откройте Microsoft Word и нажмите на клавиши Alt+F11. Откроется окно редактора Visual Basic.

2. В этом окне в Project Explorer (в верхнем левом углу экрана) раскройте узел Normal, щелкните правой кнопкой мыши по нему и в контекстном меню выберите Insert | Module. Будет создан новый стандартный модуль Module1.

3. Щелкните два раза кнопкой мыши, чтобы открыть этот модуль в окне редактора кода.

4. В меню Tools | References добавьте ссылку на библиотеку Microsoft Excel 11.0 Object Library.

5. Создайте в стандартном модуле Module1 новую процедуру со следующим кодом:

Sub ExcelFileOpen()

Dim sFileName As String

Dim oExcel As New Excel.Application

oExcel.Visible = True

oExcel.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

oExcel.FileDialog(msoFileDialogOpen).Show

sFileName = oExcel.FileDialog(msoFileDialogOpen).SelectedItems(1)

oExcel.Workbooks.Open sFileName

End Sub

Запустите этот макрос на выполнение и убедитесь, что он работает в соответствии с заданием.

Получить учебные материалы по этому курсу