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

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


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

16. Операции с рабочими книгами (объект Workbook и коллекция Workbooks)

Лабораторная работа 16.1 Работа с рабочими книгами

Объект Excel.Workbook в макросах VBA, программное создание новой книги Excel

Подготовка:

Создайте (обычным, не программным образом) книгу Excel с названием Смета.xls и сохраните ее в корневом каталоге диска C:.

Задание:

Создайте в специальной книге Personal.xls макрос TestOpenWorkbook(), который бы проверял, открыта или нет книга с именем Смета.xls. Если книга открыта, этот макрос должен вывести в стандартном окне сообщения ее имя. Если книга закрыта, этот макрос должен ее открыть и также вывести ее имя в стандартном окне сообщения.

Решение:

Код для макроса TestOpenWorkbook() может быть таким:

Sub TestOpenWorkbook()

Dim oWbk As Workbook

Dim bFlag As Boolean

For Each oWbk In Application.Workbooks

    If oWbk.Name = "Смета.xls" Then

    bFlag = True

    Exit For

    End If

Next

If bFlag = False Then

    Set oWbk = Application.Workbooks.Open("C:\Смета.xls")

End If

MsgBox oWbk.Name

End Sub

 

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

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


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

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