Объект Workbook и семейство Workbooks. Основные объекты VBA. Язык визуального программирования приложений Visual Basic for Applications

В иерархии Excel объект workbook (рабочая книга) идет сразу после объекта Application и представляет файл рабочей книги. Рабочая книга хранится либо в файлах формата XLS (стандартная рабочая книга) или XLA (полностью откомпилированное приложение). Свойства и методы рабочей книги позволяют работать с файлами.

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


	Свойства	Выполняемые действия и допустимые значения
	ActiveSheet	Возвращает активный лист книги. Например: MsgBox "Имя активного листа " & ActiveSheet . Name — выводит в диалоговом окне имя активного рабочего листа
	ActiveDialog	Возвращает активное диалоговое окно
	ActiveChart	Возвращает активную диаграмму
	Sheets	Возвращает семейство всех листов книги
	Worksheets	Возвращает семейство всех рабочих листов книги
	Charts	Возвращает семейство всех диаграмм книги (которые не внедрены в рабочие листы)
	Count	Возвращает число объектов семейства workbooks
	HasPassword	Допустимые значения: True (если у документа имеется пароль защиты), False (в противном случае)
	WriteRe served	Допустимые значения: 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

Методы объекта Workbook и семейства Workbooks


	Методы	Выполняемые действия
	Activate	Активизирует рабочую книгу так, что ее первый рабочий лист становится активным. Например: Workbook. Activate
	Add	Создает новый объект для семейства Workbooks. Синтаксис: Add (Template) Template — задает шаблон, на основе которого создается новая рабочая книга. Допустимые значения: xlWBATChart, xlWBATExce14IntlMacroSheet, xlWBATExce14MacroSheet или xlWBATWorksheet. Если аргумент Template опущен, то создается новая рабочая книга с количеством листов, заданных свойством SheetsInNewWorkbook
	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 : = " Порфирий Заковыркин"

События объекта Workbook и семейства Workbooks

Событие	Когда возникает событие
BeforeClose	При закрытии рабочей книги
BeforePrint	Перед печатью рабочей книги
BeforeSave	Перед сохранением рабочей книги
Deactivate	Когда рабочая книга теряет фокус
NewSheet	При добавлении нового листа
Open	При открытии рабочей книги
SheetActivate	При активизации любого рабочего листа
Sheet Deactivate	Когда рабочий лист теряет фокус

Знаете ли Вы, что, как и всякая идолопоклонническая религия, релятивизм ложен в своей основе. Он противоречит фактам. Среди них такие:

1. Электромагнитная волна (в религиозной терминологии релятивизма - "свет") имеет строго постоянную скорость 300 тыс.км/с, абсурдно не отсчитываемую ни от чего. Реально ЭМ-волны имеют разную скорость в веществе (например, ~200 тыс км/с в стекле и ~3 млн. км/с в поверхностных слоях металлов, разную скорость в эфире (см. статью "Температура эфира и красные смещения"), разную скорость для разных частот (см. статью "О скорости ЭМ-волн")

2. В релятивизме "свет" есть мифическое явление само по себе, а не физическая волна, являющаяся волнением определенной физической среды. Релятивистский "свет" - это волнение ничего в ничем. У него нет среды-носителя колебаний.

3. В релятивизме возможны манипуляции со временем (замедление), поэтому там нарушаются основополагающие для любой науки принцип причинности и принцип строгой логичности. В релятивизме при скорости света время останавливается (поэтому в нем абсурдно говорить о частоте фотона). В релятивизме возможны такие насилия над разумом, как утверждение о взаимном превышении возраста близнецов, движущихся с субсветовой скоростью, и прочие издевательства над логикой, присущие любой религии.

4. В гравитационном релятивизме (ОТО) вопреки наблюдаемым фактам утверждается об угловом отклонении ЭМ-волн в пустом пространстве под действием гравитации. Однако астрономам известно, что свет от затменных двойных звезд не подвержен такому отклонению, а те "подтверждающие теорию Эйнштейна факты", которые якобы наблюдались А. Эддингтоном в 1919 году в отношении Солнца, являются фальсификацией. Подробнее читайте в FAQ по эфирной физике.