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

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