Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Excel для пользователей
 
 

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


<-- Назад Читать дальше -->

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

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

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

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


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru