7-Объект Workbook и семейство Workbooks

advertisement
Объект Workbook и семейство Workbooks
В иерархии Excel объект Workbook (рабочая книга) идет сразу после
объекта Application и представляет файл рабочей книги. Рабочая книга
хранится либо в файлах формата XLS (стандартная рабочая книга) или XLA
(полностью откомпилированное приложение). Свойства и методы рабочей
книги позволяют работать с файлами. Объект входит в семейство (набор)
Workbooks.
Ссылку на объект можно получить через свойства:
Workbooks(<Индекс>) – ‘Возвращает объект по индексу в наборе;
Workbooks(“<Имя>”) – ‘Возвращает объект по имени в наборе;
ActiveWorkbook – ‘Возвращает ссылку на активную книгу в момент
выполнения команды;
ThisWorkbooks – ‘Возвращает ссылку на книгу, в которой находится текст
исполняемого модуля.
3.2.1.Свойства объекта Workbook и семейства Workbooks
ActiveSheet – ‘Возвращает активный лист книги. Для получения имени
листа используется свойство Name объекта Sheet.
Примеры:
MsgBox(“Имя активного листа “) & ActiveSheet.Name
или
MsgBox ActiveWorkbook.ActiveSheet.Name–‘В диалоговом окне выводит
имя активного рабочего листа.
ActiveDialog – ‘Возвращает активное диалоговое окно.
ActiveChart – ‘Возвращает активную диаграмму.
Sheets – ‘Возвращает семейство всех листов книги.
Worksheets – ‘Возвращает семейство всех рабочих листов книги.
Пример:
Sub xjfchd()
For Each s In ActiveWorkbook.Sheets
MsgBox s.Name
Next s
End Sub
Charts – ‘Возвращает семейство всех диаграмм книги, которые не
внедрены в рабочие листы.
Count – ‘Возвращает число объектов семейства Workbooks (количество
открытых приложением книг).
FullName – ‘Возвращает полное имя рабочей книги.
Пример:
MsgBox ActiveWorkbook.FullName
Name – ‘Возвращает имя активной рабочей книги.
Пример:
MsgBox ActiveWorkbook.Name
HasPassword – ‘Допустимые возвращаемые значения:
-True, если у документа имеется пароль защиты;
-False, если у документа нет пароля защиты.
Path – ‘Возвращает путь к файлу рабочей книги.
Пример:
MsgBox ActiveWorkbook.Path
Saved – ‘Допустимые возвращаемые значения:
-True, если не производились изменения в документе со времени его
последнего сохранения;
-False, если изменения производились.
Item(Index) – ‘Возвращает ссылку на объект по индексу в семействе.
Index – это номер или имя объекта в семействе.
Пример:
WorkBooks.Item(“Книга1”).Activate
или
WorkBooks(“Книга1”).Activate
3.2.2.Методы объекта Workbook и семейства Workbooks
Activate –‘Активизирует рабочую книгу так, что её первый рабочий лист
становится активным.
Пример:
WorkBooks(“Книга1”).Activate
или
Workbook.Activate
Add – ‘Создает новый объект для семейства Workbooks.
Синтаксис: Add(Template)
Аргумент Template задаёт шаблон (путь к шаблону), на основе которого
создаётся новая рабочая книга.
Допустимые значения:
- xlWBATChart;
- xlWBATExcel4IntlMacroSheet;
- xlWBATWorkSheet.
Если аргумент Template опущен, то создаётся новая рабочая книга с
количеством листов, заданных свойством SheetsInNewWorkbook.
Пример:
Workbooks.Add
Workbooks.Add “c:\Мои документы\Платежка.xls”
Protect–‘Защищает рабочую книгу от внесения в неё изменений.
Синтаксис: Protect(Password, Structure, Windows), где:
- Password – строка, используемая в качестве пароля для
защиты книги;
- Structure – ‘Допустимые значения:
-True, если нужно защитить структуру книги, то есть взаимное
расположение листов;
-False, если не нужно.
- Windows – ‘Допустимые значения:
-True, если нужно защитить окно книги;
-False, если не нужно.
Пример:
Sub Охрана()
Workbooks(“Книга1”) . Activate
ActiveWorkbook.Protect (Password=”ЖидкийЛёд”)
End Sub
Если параметры Structure и Windows не заданы, то по умолчанию они
принимают значение True.
Unprotect – ‘Снятие защиты с рабочей книги.
Синтаксис: Unprotect (Password)
Пример:
Sub Отмена()
Workbooks(“Книга1”) . Activate
ActiveWorkbook.Unprotect Password=”ЖидкийЛёд”
End Sub
Close – ‘Закрытие рабочей книги.
Close SaveChanges, FileName - ‘Закрывает книгу.
SaveChanges –‘Сохраняет изменения в рабочей книге, если ответ True.
– ‘Не сохраняет изменения в рабочей книге, если ответ False.
FileName – ‘Указывает имя файла, в котором происходит сохранение.
Пример:
WorkBooks(“Книга1”).Close
WorkBooks(“Книга1”).Close True, “Книга2”
NewWindow – ‘Открывает указанную книгу в новом окне.
Пример:
WorkBooks(“Книга1”).NewWindow
Save – ‘Сохраняет изменения в рабочей книге.
Пример:
WorkBooks(“Книга1”).Save
SaveAs FileName – ‘Сохраняет книгу под другим именем (в другом
файле).
Пример:
WorkBooks(“Книга1”).SaveAs “kdjf.xls”
Open FileName –‘Открывает рабочую книгу с именем, указанным в
параметре FileName.
Пример:
Workbooks.Open “Книга1.xls”
Download