Объект Workbook

Объект Workbook представляет собой рабочую книгу, которая хранится в файле с расширением.xls или.xla. При открытии Excel пользователем, в нем создается новая пустая рабочая книга. Когда Excel запускается VBA программой, рабочих книг он не содержит, поэтому задача создания или открытия рабочей книги возлагается на программу. Проект VBA для открытой рабочей книги содержит раздел «Эта книга» и по одному разделу для каждого открытого листа. Подобно объектам ActiveDocument и ThisDocument объектной модели Word, в Excel объекты ActiveWorkBook и ThisWorkBook ссылаются на активную в данный момент рабочую книгу и на книгу, из которой запущен макрос.

Пример 1. Для создания новой рабочей книги используется метод Add коллекции Workbooks.

 

Sub Создать_книгу()

Workbooks.Add

End Sub

 

Пример 2. Для открытия существующей рабочей книги используется метод Open коллекции Workbooks. Если путь к файлу не указан, то используется по умолчанию текущий путь:

 

Sub Открыть_книгу()

Workbooks.Open(“D:\Мои документы\Проба.xls”)

End Sub

 

Или в другом синтаксисе

 

Sub Открыть_книгу()

Workbooks.Open filename:=”D:\Мои документы\Проба.xls”

End Sub

 

Пример 3. Для сохранения рабочей книги, которая имеет свое имя, используется метод Save коллекции Workbooks. Если путь к файлу не указан, то используется по умолчанию текущий путь.

 

Sub Сохранить_книгу()

Workbooks(“Проба.xls”).Save

End Sub

 

Пример 4. Для сохранения новой рабочей книги в первый раз с присвоением ей имени используется метод SaveAs коллекции Workbooks. Этот же метод используется для сохранения рабочей книги под другим именем. Новое имя задается двумя способами: либо непосредственно указывается в программе

 

Sub Сохранить_книгу_как()

Workbooks(“Проба.xls”).SaveAs(“D:\Мои документы\Новая_книга.xls”)

End Sub

 

Либо запрашивается у пользователя с помощью специального диалога

 

Sub Сохранить_книгу_как()

Новое_имя=Application.GetSaveAsFilename

Workbooks(“Проба.xls”).SaveAs(Новое_имя)

End Sub

 

Пример 5. Как только рабочая книга была сохранена, ее свойства FullName, Name и Path изменяются. Свойство FullName будет содержать полное имя файла, свойство Name – имя файла, а свойство Path – только путь. В данном примере использована константа vbCr, позволяющая осуществлять вывод в окне сообщений (MsgBox) с новой строки, а также показан способ изменения заголовка данного окна:

 

Sub Информация_о_книге()

MsgBox_

Promt:=”Полное имя:”&ActiveWorkbook.FullName&vbCr&_

”Имя:”&ActiveWorkbook.Name&vbCr&_

“Путь”&ActiveWorkbook.Path,_

Title:=”Информация о книге”

End Sub

 

Пример 6. Для закрытия рабочей книги используется метод Close коллекции Worbooks. Данный метод позволяет указать с помощью параметра SaveChanges, сохранять перед закрытием или нет:

 

Sub Закрыть_книгу()

ActiveWorkbook.Close SaveChanges:=True,

Filename:=”D:\Мои документы\Проба.xls”

End Sub

 

Если параметр SaveChanges опущен, то пользователю будет выведен запрос на подтверждение сохранения:

 

Sub Закрыть_книгу()

ActiveWorkbook.Close FileName:=”D:\Мои документы\Проба.xls”

End Sub

 

Пример 7. Свойство Saved объекта Workbook позволяет определить, производилось ли сохранение рабочей книги после изменений

 

Sub Изменения_книги()

If ActiveWorkbook.Saved Then

MsgBox “Рабочая книга не изменена после последнего сохранения”

Else: MsgBox “Рабочая книга содержит не сохраненные изменения”

End if

End Sub