VBA-HELP.RU

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

Свойства	Выполняемые действия и допустимые значения
ActiveSheet	Возвращает активный лист книги. Например: 'выводит в диалоговом окне имя активного рабочего листа MsgBox "Имя активного листа " & ActiveSheet . Name
ActiveDialog	Возвращает активное диалоговое окно
ActiveChart	Возвращает активную диаграмму
Sheets	Возвращает семейство всех листов книги
Worksheets	Возвращает семейство всех рабочих листов книги
Charts	Возвращает семейство всех диаграмм книги (которые не внедрены в рабочие листы)
Count	Возвращает число объектов семейства workbooks
HasPassword	Допустимые значения: True (если у документа имеется пароль защиты) False (в противном случае)
WriteReserved	Допустимые значения: True (если документ закрыт для записи) False (в противном случае)
Saved	Допустимые значения: True (если не производились изменения в документе со времени его последнего сохранения) False (в противном случае)
MailSystem	Возвращает имя инсталлированных на компьютере средств работы с электронной почтой. Допустимые значения: xlNoMailSystem (не установлена система электронной почты) xlMAPi (установлена система Microsoft Mail) xlPowerTalk (установлена система Apple PowerTalk Mail, на компьютерах Macintosh). В следующем примере проверяется, инсталлирована ли электронная почта. Если электронная почта не установлена, то отображается соответствующее сообщение: If Application. MailSystem <> xlMAPI Then MsgBox "Microsoft Mail неинсталлирован" End If

Методы	Выполняемые действия
Activate	Активизирует рабочую книгу так, что ее первый рабочий лист становится активным. Например: Workbook. Activate
Add	Создает новый объект для семейства Workbooks. Синтаксис: Add (Template)     Template — задает шаблон, на основе которого создается новая рабочая книга. Допустимые значения: xlWBATChart, xlWBATExce14IntlMacroSheet, xlWBATExce14MacroSheet или xlWBATWorksheet. Если аргумент Template опущен, то создается новая рабочая книга с количеством листов, заданных свойством SheetsInNew Workbook
Protect	Защищает рабочую книгу от внесения в нее изменений. Синтаксис: Protect (Password, Structure, Windows) Password — строка, используемая в качестве пароля для защиты книги Structure — допустимые значения True (защищена структура книги, т. е. взаимное расположение листов) и False (не защищена) windows — допустимые значения True (защищено окно книги) и False (не защищено) В следующем примере устанавливается защита для активной рабочей книги: ActiveWorkbook. Protect Password:= "ВинниПух"
Unprotect	Снятие защиты с рабочей книги. Синтаксис: Unprotect (Password) Password — строка, используемая в качестве пароля для защиты листа В следующем примере снимается защита с активной рабочей книги: ActiveWorkbook. Unprotect Password := "ВинниПух "
Close	Закрытие рабочей книги
Open	Открытие существующей рабочей книги
OpenText	Открытие текстового файла, содержащего таблицу данных
Save	Сохранение рабочей книги
SaveAs	Сохранение рабочей книги в другом файле. Синтаксис: SaveAs (Filename) Filename — строка, указывающая имя файла, в котором будет сохранена рабочая книга В следующем примере активная рабочая книга сохраняется в файле с именем НоваяВерсия: ActiveBook. SaveAs Filename := "НоваяВерсия"
SaveAsCopy	Сохранить рабочую книгу в другом файле, оставляя рабочую книгу в памяти с прежним именем. Синтаксис: SaveAs (Filename, FileFormat) Filename — строка, указывающая имя файла, в котором будет сохранена рабочая книга В следующем примере активная рабочая книга сохраняется в файле с именем ЗапаснаяВерсия: ActiveBook. SaveAsCopy Filename := "ЗапаснаяВерсия"
PrintPreview	Предварительный просмотр
Printout	Печать содержимого рабочей книги
SendMail	Отсылка почты используя встроенные средства Microsoft Mail (MAPI). Синтаксис: SendMail (Recipients, Subject, ReturnReceipt ) Recipients — строка или массив строк, перечисляющих получателей Subject — строка, специфицирующая тему сообщения Optional Variant. ReturnReceipt — допустимые значения True (требуется уведомление о получении сообщения) и False (в противном случае) В следующем примере рабочая книга отсылается по электронной почте получателю Порфирию Заковыркину: ThisWorkbook.SendMail recipients: = " Порфирий Заковыркин"