3. К третьей группе относятся свойства, возвращающие объекты, специфические для рабочих книг Excel. К ним относятся:

• Names – коллекция имен, которые даны отдельным областям листов рабочей книги. Типичной является ситуация, когда при работе с рабочей страницей, выделяется та или иная область, содержащая определенные данные, и этой области даются имена. При программировании очень часто приходится использовать имена таких объектов. Полагаю, что примеров в свое время будет достаточно. Напомню, что объект Application также имеет свойство Names, возвращающее коллекцию имен, включающую коллекции имен всех открытых рабочих книг.

• PublishObjects - возвращает одноименную коллекцию, элементы которой принадлежат классу PublishObject. Эти объекты являются новинкой Excel 2000, они задают элементы рабочей книги, опубликованные на Web-странице. С их помощью можно вести обновление Web-страницы при изменениях состояния опубликованных объектов.

• Container – объект, который содержит рабочую книгу. Типичным примером, когда рабочая книга может быть встроена в другой объект, и являться его частью, служит подшивка – объект Binder. Следует заметить, что в отличие от предыдущей версии подшивки пока не стали частью семейства Office 2000.

• CustomViews – возвращает одноименную коллекцию, элементы которой задают образ той или иной части рабочей книги в том виде, как он виден на экране дисплея. Каждому такому образу дается свое имя. Ранее я говорил, что для того, чтобы увидеть ту или иную часть рабочей книги, используются окна. Custom View – это другая возможность задать коллекцию образов экрана, отражающих заданные части рабочей книги. В нижеследующем примере первая из приведенных процедур создает объект CustomView, сохраняющий текущий образ рабочей книги. Вторая процедура, которую можно вызвать в подходящий момент, позволяет показать на экране нужную часть рабочей книги в соответствии с сохраненным образом.

Public Sub AddCustView() 'Добавить Custom View - образ экрана, 'отражающий текущий вид рабочей книги. ThisWorkbook.CustomViews.Add ("Две кнопки") Debug.Print ThisWorkbook.CustomViews.Count ThisWorkbook.CustomViews(1).Show End Sub Public Sub ShowCustView() 'Показать Custom View - вывести на экран, 'заданный вид рабочей книги. Dim CW As CustomView If ThisWorkbook.CustomViews.Count > 0 Then For Each CW In ThisWorkbook.CustomViews If CW.Name = "Две кнопки" Then CW.Show Next CW End If End Sub

Терминальные свойства объекта Workbook

Терминальных свойств, как обычно, множество. Они проще, чем свойства, задаваемые объектами. Среди них достаточно много булевых свойств, позволяющих включать или отключать то или иное свойство рабочей книги. Я приведу сводку некоторых из этих свойств, позволяющую получить общее представление о том, как можно управлять характеристиками рабочей книги Excel с помощью этих свойств.

Таблица 6 Терминальные свойства объекта Workbook

Терминальные свойства	Назначение свойства
AcceptLabelsInFormula	Булево свойство со значением True, если метки могут использоваться в формулах рабочего листа. По умолчанию —True.
HasRoutingSlip	Булево свойство со значением True, если книга может быть направлена по сети другим участникам разработки документа.
Routed	Булево свойство со значением True, если документ был направлен следующему участнику разработки.
MultiUserEditing	Булево свойство со значением True, если книга открыта для разделяемого доступа.
AutoUpdateFrequency	Задает частоту (в минутах), с которой сделанные изменения передаются участникам разделяемого доступа. Если свойство имеет значение 0, то книга будет пересылаться только в момент ее сохранения
AutoUpdateSaveChanges	Булево свойство со значением True, если сделанные изменения автоматически пересылаются всем участникам разработки. Предыдущий параметр должен иметь значение в пределах от 5 до 1440, чтобы это свойство оказало эффект.
ListChangesOnNewSheet	Булево свойство со значением True, если сделанные изменения показываются на отдельной странице при разделенном доступе
KeepChangeHistory	Булево свойство со значением True, если при разделенном доступе сохраняется история сделанных изменений.
ChangeHistoryDuration	Устанавливает число дней, в течение которых сохраняются изменения в их истории. Старые изменения, срок которых превышает заданную установку, из истории удаляются
CreateBackup	Булево свойство со значением True, если при сохранении книги создается ее резервная копия.
CodeName	Рабочие книги, листы и другие объекты Excel имеют два имени — собственное и кодовое. В момент создания объекта они совпадают, например "Лист1", но затем каждое из них может быть независимо изменено. Кодовое имя может быть изменено только вручную в окне свойств. Программно оно может быть использовано только для чтения. Важно то, что кодовое имя можно использовать для непосредственного именования объекта, что сокращает цепочку вызовов. Так непосредственно можно обратиться к объекту Лист1.Range(myRange)
FullName	Полное имя рабочей книги, заданное в виде строки, включающее путь к файлу, хранящему книгу. Имеет статус «только для чтения».
FileFormat	Свойство имеет статус "только для чтения" и возвращает константу, задающую формат файла и/или тип рабочей книги
HasPassword	Булево свойство со значением True, если документ имеет пароль защиты
Saved	Булево свойство со значением True, если не делалось никаких изменений с момента последнего сохранения документа.
WriteReserved	Булево свойство со значением True, если документ закрыт для записи.
Новые терминальные свойства объекта Workbook в Excel 2000
EnvelopeVisible	Новое в Excel 2000 терминальное булево свойство, при включении которого появляется панель для отправки электронной почты и заголовок отправляемого сообщения.
VBASigned	Новое в Excel 2000 терминальное булево свойство, которое показывает, имеет ли программный проект данной книги цифровую подпись. Свойство имеет статус «только для чтения».

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

Public Sub AllNames() 'Печать имен документа With ThisWorkbook Debug.Print "Свойство Name - ", .Name Debug.Print "Свойство CodeName - ", .CodeName Debug.Print "Свойство FullName - ", .FullName Debug.Print "Свойство Path - ", .Path End With End Sub

Вот как выглядят результаты в окне отладки, полученные в результате работы этой процедуры:

Свойство Name - BookOne.xls Свойство CodeName - ЭтаКнига Свойство FullName - E:\O2000\DsCd\Ch11\BookOne.xls Свойство Path - E:\O2000\DsCd\Ch11

Следующая процедура позволяет по желанию пользователя включить или отключить панель для отсылки почтового сообщения, используя новое свойство EnvelopeVisible:

Public Sub EnvelopeOn() 'Включение и выключение панели и заголовка почтового сообщения Dim Answer As Long Answer = MsgBox("Включить панель отправки почтового сообщения?", _ vbYesNo) If Answer = vbYes Then ThisWorkbook.EnvelopeVisible = True Else ThisWorkbook.EnvelopeVisible = False End If End Sub

Методы объекта Workbook

Дадим теперь краткую характеристику основным методам объекта Workbook. Мы уже говорили о том, что создаются и открываются рабочие книги методами коллекции Workbooks — Add, Open и OpenTextFile. А вот закрываются и сохраняются, используя собственные методы. С них мы и начнем описание методов:

• Save, SaveAs, SaveCopyAs — позволяют сохранить рабочую книгу, без ее закрытия и удаления из коллекции Workbooks. При первом сохранении следует применять метод SaveAs, чтобы задать имя файла, в котором книга сохраняется. Метод имеет и другие параметры — формат хранения, пароль, статус и другие характеристики. Последний из этой группы методов создает копию рабочей книги.

• Close — выполняет те же функции, что и Save, но одновременно закрывает книгу и удаляет ее из коллекции.

• Activate — активизирует рабочую книгу.

• Route — направляет рабочую книгу по сети всем участникам совместной разработки. Список участников и другие характеристики задаются в свойствах объекта RoutingSlip. Вот пример процедуры, в которой определяется круг участников работы, после чего им пересылается текущая книга.

Public Sub BookRoute() 'Регистрация исполнителей совместной разработки 'в объекте RoutingSlip. 'Посылка книги совместно работающим исполнителям. With ThisWorkbook .HasRoutingSlip = True With .RoutingSlip .Delivery = xlOneAfterAnother .Recipients = Array("Илья Биллиг", _ "Михаил Дехтярь") .Subject = "Collaboration Test" .Message = "Это книга Excel, пересылаемая в качестве примера" .ReturnWhenDone = True End With .Route End With End Sub

Заметьте, для того, чтобы при пересылке книги не задавались лишние вопросы, все исполнители, включенные в список Recipients, также как и сам автор документа, должны быть включены в адресную книгу. Согласно установленному порядку книга будет послана первому исполнителю, указанному в списке, и далее будет пересылаться по заданному списком маршруту. После отсылки книги свойство Routed автоматически будет установлено как True.

• AcceptAllChanges, RejectAllChanges — принимает или отвергает все изменения, сделанные участниками совместной разработки документа при разделенном доступе.

• RefreshAll — обновляет сводные таблицы и все области, содержащие внешние данные.

• PurgeChangeHistoryNow (Days,SharingPassword) — удаляет из истории изменений все те, чей срок хранения превосходит число дней, заданных параметром Days. Второй параметр задает общий пароль.

• Protect, ProtectSharing, Unprotect, UnprotectSharing — методы, включающие и выключающие пароли личные и общие рабочей книги.

• ExclusiveAccess — если книга открыта с разделяемым доступом, то этот метод дает пользователю, вызвавшему его, исключительное право доступа — изменения, сделанные всеми остальными пользователями должны сохраняться в отдельных файлах.

• ChangeFileAccess(Mode, WritePassword, Notify) — изменяет статус доступа. Новый статус задается параметром Mode, который может принимать одно из двух значений: xlReadWrite и xlReadOnly. Если файл снабжен паролем и получает статус для записи и чтения, то второй параметр WritePassword задает пароль на запись. Если булев параметр Notify имеет значение True, то пользователь получает уведомление, когда файл недоступен.

• AddToFavorites — добавляет в папку Favorites ярлычок рабочей книги.

• PivotCaches — возвращает коллекцию областей памяти, отводимых сводным таблицам данной рабочей книги. Элементами этой коллекции являются объекты PivotCache. Каждой сводной таблице – объекту PivotTable отводится своя память (кэш), которую и задает объект PivotCache.

• RunAutoMacros — запускает на выполнение все автомакросы данной книги.

• LinkSources([Type]), ChangeLink(Name As String, NewName As String, [Type As XlLinkType = xlLinkTypeExcelLinks]), OpenLinks(Name As String, [ReadOnly], [Type]), LinkInfo(Name As String, LinkInfo As XlLinkInfo, [Type], [EditionRef]), UpdateLink([Name], [Type]) – группа методов, позволяющих работать со ссылками. Ссылки могут быть четырех типов:

  • на другие рабочие книги Excel ,

  • на документы, связанные по протоколу OLE (например, документы Word, на которые ссылается рабочая книга) или протоколу DDE,

  • на издателей книги при совместной работе над книгой и ее публикации на сервере,

  • на подписчиков книги, опубликованной на сервере и доступной для подписчиков.

Метод LinkSources позволяет получить все ссылки типа, заданного его параметром. Если параметр не указан, то будут выданы ссылки на книги Excel. Следующий метод Change позволяет изменить ссылку, Open – открыть документ по заданной ссылке, Info – получить некоторую информацию о документе, Update – обновить ссылки.

Вот пример работы с этой группой методов объекта Workbook:

Public Sub LinkDocs() 'Установление связей рабочей книги Dim BookLinks As Variant Dim i As Integer With ThisWorkbook ' связи с другими книгами Excel. BookLinks = .LinkSources(xlExcelLinks) If Not IsEmpty(BookLinks) Then Debug.Print "Существуют ссылки на рабочие книги Excel!" For i = LBound(BookLinks) To UBound(BookLinks) Debug.Print "Ссылка" & i & " : ", BookLinks(i) If BookLinks(i) = "BookTwo" Then .OpenLinks BookLinks(i) .ChangeLink BookLinks(i), "BookOne" End If Next i Else: Debug.Print "Ссылки на рабочие книги отсутствуют!" End If BookLinks = .LinkSources(xlOLELinks) If Not IsEmpty(BookLinks) Then Debug.Print "Существуют ссылки на OLE - документы!" For i = LBound(BookLinks) To UBound(BookLinks) Debug.Print "Ссылка" & i & " : ", BookLinks(i) Next i If .LinkInfo("Word.Document.8|E:\O2000\Remarks.doc!'", _ xlUpdateState, xlOLELinks) = 1 Then Debug.Print "Автоматическое обновление данных с OLE - документами!" End If Else: Debug.Print "Ссылки на OLE - документы отсутствуют!" End If BookLinks = .LinkSources(xlPublishers) If Not IsEmpty(BookLinks) Then Debug.Print "Существуют ссылки на издателей документа!" For i = LBound(BookLinks) To UBound(BookLinks) Debug.Print "Ссылка" & i & " : ", BookLinks(i) Next i Else: Debug.Print "Ссылки на издателей отсутствуют!" End If BookLinks = .LinkSources(xlSubscribers) If Not IsEmpty(BookLinks) Then Debug.Print "Существуют ссылки на подписчиков документа!" For i = LBound(BookLinks) To UBound(BookLinks) Debug.Print "Ссылка" & i & " : ", BookLinks(i) Next i Else: Debug.Print "Ссылки на подписчиков отсутствуют!" End If End With End Sub

Вот как выглядят результаты отладочной печати, полученные при работе этой процедуры:

Существуют ссылки на рабочие книги Excel! Ссылка1 : BookTwo Ссылка2 : E:\O2000\DsCd\Ch11\BookOne.xls Существуют ссылки на OLE - документы! Ссылка1 : Word.Document.8|E:\O2000\Remarks.doc!' Автоматическое обновление данных с OLE - документами! Ссылки на издателей отсутствуют! Ссылки на подписчиков отсутствуют!

Новые методы объекта Workbook

У объекта Workbook в Excel 2000 появились два новых метода:

• Sub ReloadAs(Encoding As MsoEncoding),

• Sub WebPagePreview().

Оба метода, так или иначе, связаны с общей тенденцией публикации документов Excel в Интернет. Рабочие книги, публикуемые в Интернет и интранет, хранятся, естественно в формате HTML. При их чтении могут возникнуть проблемы с кодировкой. Метод ReloadAs(Encoding As MsoEncoding) позволяет перезагрузить книгу в формате HTML, используя нужную кодировку, заданную параметром метода, значением которого может быть, например, константа msoEncodingCyrillic. Метод WebPagePreview позволяет перед публикацией книги отобразить ее на дисплее в том виде, как будет выглядеть соответствующая Web-страница, открываемая в интернет для работы с рабочей книгой.

Методы объекта Workbook предназначены, как можно видеть, для выполнения общих операций над документом и по существу не определяют специфических для Excel действий. Чтобы познакомиться со спецификой, следует пойти вглубь иерархии объектов.

События объекта Workbook

Со всеми событиями, которые может обрабатывать объект Workbook, мы уже знакомы. Всего таких событий 20, из них 9 событий связаны непосредственно с самим объектом Workbook, 8 – возникают на страницах рабочей книги и связаны также с объектом Sheet, три события связаны с объектом Window. Я напомню, что при возникновении события сообщение о нем операционная система посылает, как правило, нескольким объектам. Все они, каждый по-своему, могут обрабатывать это событие. Подробно обо всем этом рассказано при рассмотрении событий объекта Application.

Коллекция WorkSheets и объект WorkSheet

Каждая рабочая книга состоит из листов. Совокупность всех листов рабочей книги задается объектом Sheets. Этот объект, задающий коллекцию, представляет все листы рабочей книги независимо от их типа. При программной работе часто полезно иметь дело с подколлекциями коллекции Sheets, содержащими листы только одного определенного типа. Основных типов листов в рабочей книге два – WorkSheet и Chart, соответственно имеются и две коллекции для этих типов листов. К рассмотрению коллекции WorkSheets мы сейчас и переходим.

Коллекция WorkSheets

Эта коллекция является частью коллекции Sheets, - ее элементами являются объекты класса WorkSheet, представляющие рабочие листы – листы электронных таблиц. По умолчанию при создании каждой новой рабочей книги в ее состав включаются три таких листа. С объектной точки зрения это означает, что при создании новой книги автоматически создается коллекция WorkSheets, содержащая три элемента. Как и всякая коллекция в Excel и Office 2000 данная коллекция содержит типичный набор свойств: Application, Count, Creator, Parent, Item. Кроме этих свойств имеется менее типичное свойство для коллекций свойство Visible, которое позволяет сделать видимыми или невидимыми рабочие листы книги. У коллекции WorkSheets есть еще два свойства VpageBreaks и HpageBreaks, возвращающие одноименные коллекции, элементы которых задают вертикальное и горизонтальное деление рабочего листа на страницы, которые могут быть распечатаны. Дело в том, что рабочий лист Excel имеет большие размеры по ширине и длине, так что его полностью нельзя увидеть ни на экране дисплея, ни при выводе на печать. Поэтому при печати часто приходится делить рабочий лист, вставляя разрывы по горизонтали и вертикали. Коллекции VpageBreaks и HpageBreaks содержат объекты, задающие эти разрывы.

Методов у коллекции WorkSheets немного, и практически все они типичны для коллекций:

• Function Add([Before], [After], [Count], [Type]) As Object - позволяет добавить новый рабочий лист в книгу, возвращая соответствующий объект в качестве результата. Добавленный лист становится активным. Параметры Before и After позволяют указать, куда поместить добавленный лист, - перед или после листа, который до выполнения операции был активным. Параметр Count позволяет одновременно добавить несколько листов, задавая число этих листов. Параметр Type обычно не указывается, ранее он позволял добавлять листы макросов в версии Excel4.

• Sub Copy([Before], [After]) – метод Copy вызывается объектом WorkSheets, чаще всего, для создания копии рабочей книги. В этом случае параметры метода не задаются. При копировании отдельной страницы параметры указывают, куда поместить ее копию. Понятно, что только один из этих параметров может быть указан в момент вызова метода.

• Sub Delete() – удаляет коллекцию рабочих листов.

• Sub FillAcrossSheets(Range As Range, [Type As XlFillWith = xlFillWithAll]) – область, заданная параметром Range, копируется в соответствующее место всех рабочих листов. Тип копирования задается вторым параметром, можно, например, копировать формулы, по умолчанию копируется все содержимое области, заданной параметром Range. Копируемый объект, естественно, должен быть частью одного из рабочих листов коллекции. Вот простой пример, демонстрирующий применение этого метода:

Public Sub CopyRange() 'Копирование объекта Range первого листа 'на все листы рабочей книги. With ThisWorkbook .Worksheets.FillAcrossSheets (.Worksheets(1).Range("A7:C11")) End With End Sub

• Sub Move([Before], [After]) – используется для перемещения листов. К коллекции его лучше не применять.

• Sub PrintPreview([EnableChanges]), Sub PrintOut([From], [To], [Copies], [Preview], [ActivePrinter], [PrintToFile], [Collate], [PrToFileName]) – используются для предварительного просмотра коллекции рабочих листов перед ее печатью и для печати коллекции.

• Sub Select([Replace]) – используется для выделения листов коллекции.

Вот еще один небольшой пример на применение методов:

Public Sub MoveAndOthers() 'Перемещение листов и другие операции. With ThisWorkbook.Worksheets .Select .PrintPreview (True) 'Метод Move к коллекции лучше не применять! '.Move End With End Sub

Как Вы понимаете, большинство методов – Copy, Move, Select и другие – коллекция WorkSheets «унаследовала» от своих потомков. Чаще всего эти методы применяются к отдельным листам, а не ко всей коллекции в целом. Нам придется еще с ними столкнуться, при рассмотрении методов объекта WorkSheet. Прежде, чем перейти к изучению этого объекта, скажу только, что коллекция WorkSheets, также как и все другие коллекции, событий не имеет.

Объект WorkSheet

Объект Worksheet — рабочий лист является элементом коллекции Worksheets. Он представляет основной тип страниц рабочей книги. Именно на этих страницах разворачиваются основные действия в ячейках электронной таблицы. Основу рабочего листа составляет прямоугольная таблица ячеек. Главная особенность электронной таблицы состоит в том, что в ее ячейки можно вводить не только данные, но и формулы. Формулы Excel, также как и обычные математические формулы, также как и выражения в языках программирования, оперируют при вычислении значений константами, переменными и функциями. В электронной таблице роль переменных играют ячейки таблицы. Существует некоторый алгоритм, определяющий порядок, согласно которому вычисляются формулы в ячейках электронной таблицы. При изменении данных таблиц, инициированных пользователем, внешними ссылками или выполнением макросов программного проекта, пересчитываются и формулы. Это делает таблицу живой, — изменение значения одной ячейки приводит, возможно, к пересчету всей таблицы.

Также как для документов Word работа с текстом является главным занятием пользователей, работающих с документом, так и работа с ячейками - ввод данных и формул в ячейки, и, тем самым, инициирование вычислений лежит в основе работы с рабочим листом. С объектной точки зрения отдельные ячейки электронной таблицы и области, содержащие совокупности этих ячеек, то, что называется объектами Range, являются основными объектами рабочего листа. Но, естественно, рабочий лист состоит не только из объектов Range, есть и другие компоненты. Объектная модель рабочего листа Worksheet достаточно сложна, что отражает, впрочем, сложность изучаемого объекта. Давайте познакомимся с ней поближе.

Свойства объекта Worksheet

Среди свойств, как всегда, наибольший интерес представляют свойства-участники, возвращающие некоторый отдельный объект или коллекцию в качестве результата. Эти свойства определяют структуру объекта Worksheet, задавая непосредственно вложенные в него объекты.

Свойства - участники

Дадим краткую характеристику свойствам - участникам, входящим в рабочий лист:

• Range, Cells, Rows, Columns, UsedRange, CircularReference - начнем с группы свойств, возвращающих объект Range. Я уже говорил, что объект Range – это основной объект электронной таблицы. Он позволяет задать, как отдельную ячейку таблицу, диапазоны ячеек, представляющие прямоугольную область таблицы, так и области более сложной конфигурации. Именно объект Range со своими свойствами и методами позволяет осуществлять непосредственную работу, как с отдельной ячейкой, так и с областями ячеек. Об этом объекте я еще много буду говорить, но уже сейчас хочу заметить, что большинство свойств рабочего листа Worksheet, о которых пойдет речь, характерны и для объекта Range, задающего часть рабочего листа. Объект Range возвращается в качестве результата при вызове следующих свойств:

  • Range(Cell1, [Cell2]) As Range - возвращает объект Range, определяемый параметрами свойства. Синтаксис параметров таков, что он позволяет определить достаточно изощренный объект. Я расскажу об этом подробнее чуть позже, когда мы займемся подробным рассмотрением объекта Range.

  • Cells As Range - возвращает коллекцию ячеек электронной таблицы. Вызванное объектом WorkSheet это свойство возвращает всю таблицу ячеек рабочего листа, которая, конечно, представляет собой объект Range. Поскольку Cells одновременно является объектом Range и коллекцией ячеек, то можно использовать индексы, чтобы добраться до отдельного элемента коллекции - ячейки таблицы. Важным свойством Cells обладают и объекты, стоящие на более низких ступенях иерархии, в частности, им обладает и сам объект Range, что позволяет получить коллекцию ячеек для любой заданной области таблицы.

  • Rows As Range и Columns As Range – соответственно возвращают коллекции строк и столбцов таблицы. По индексу можно добраться до отдельной строки или столбцу таблицы. Одновременно эти коллекции являются объектами Range, поскольку задают некоторую область рабочего листа.

  • UsedRange As Range - возвращает используемую область рабочего листа. Как правило, лишь небольшая часть рабочего листа занята данными, формулами, рисунками, диаграммами и графиками. Свойство UsedRange позволяет получить минимальную прямоугольную область, содержащую используемую область рабочего листа.

  • CircularReference As Range – возвращает объект Range, содержащий первую циклическую ссылку, если таковые имеются на рабочем листе. В противном случае возвращается значение Nothing. О циклических ссылках поговорим подробнее чуть позже.

Одну и ту же область таблицы - один и тот же объект Range - можно получить разными способами. Приведем пример, показывающий два способа получения ячейки "А1":

Debug.Print ActiveSheet.Range("A1") Debug.Print ActiveSheet.Cells(1, 1)

Оба оператора здесь эквивалентны, но только в одном случае используется свойство Range , в другом – Cells. В следующем примере работа идет над отдельным столбцом и строкой, но, фактически, и здесь действует тот же объект Range:

ActiveSheet. Columns(2).Value = "Да" ActiveSheet.Rows(1).Font.Bold = True

• Shapes – возвращает одноименную коллекцию, элементами которой являются объекты класса Shape. Эта коллекция состоит из объектов самых различных типов. По существу, все, что вставляется в рабочий лист, - рисунки, диаграммы, графики, встроенные и связанные OLE-объекты, элементы управления, размещаемые на рабочем листе, - все это объекты коллекции Shapes. При программировании нам неоднократно придется сталкиваться с этими объектами. После объектов Range объекты Shape представляют наиболее часто встречающийся тип объектов, определяющих суть рабочего листа. Замечу еще, что коллекция Shapes и объекты Shape относятся к схожим объектам, встречающимся во всех приложениях Office 2000. При описании объектов Word нам уже приходилось встречаться с этими объектами.

• Names – возвращает неоднократно упоминавшуюся одноименную коллекцию. Подобное свойство имеют объекты Application и Workbook, имеет его и объект WorkSheet. Разница состоит только в том, что здесь речь идет об именах, используемых в данном рабочем листе.

• Comments – возвращает одноименную коллекцию с элементами класса Comment, представляющими комментарии, которые можно привязывать к той или иной ячейке рабочего листа — объекту Range. Замечу, что комментарии несут очень важную нагрузку в создании дружелюбного интерфейса разрабатываемых документов. Их следует широко использовать. Эти объекты также относятся к схожим объектам, и встречаются во всех приложениях Office 2000. Но в Excel комментарии к ячейкам играют особую роль, значительно более важную, чем комментарии в документах Word. В текстовых документах можно использовать различные стили, чтобы непосредственно в тексте документа вставлять авторские замечания, предупреждения и пояснения. Комментарии, как правило, используются в тех случаях, когда не желательно прерывать плавное изложение материала, чтобы работающий с документом мог прочесть основной текст, лишь при желании знакомясь с комментариями. В Excel’е, когда основное содержание листа составляют таблицы, все замечания, пояснения и предупреждения оформляются в виде комментариев к тем или иным ячейкам. Они, например, могут давать подсказку, какие данные располагаются в ячейке, определять их формат и давать другую полезную информацию, необходимую пользователю при работе с таблицами рабочего листа. В [3] при описании объектов Word я демонстрировал введение комментариев в документ Word. Есть некоторая разница в программной работе с комментариями в Word и Excel. Вот как выглядит пример введения комментариев в документ Excel:

Public Sub AddComments() 'Формируется последовательность чисел Фибоначчи. 'Вставляется комментарий, поясняющий суть чисел. Dim myRange As Range Workbooks("BookThree").Activate With ActiveWorkbook.Worksheets(2) Set myRange = .Range("E1") With myRange .Value = "Числа Фибоначчи" .Offset(1, 0).FormulaR1C1 = "0" .Offset(2, 0).FormulaR1C1 = "1"

.Offset(3, 0).FormulaR1C1 = "=R[-2]C +R[-1]C" .Offset(3, 0).Select Selection.AutoFill Destination:=Range("E4:E20"), _ Type:=xlFillDefault End With 'Добавление комментария myRange.AddComment "Числа Фибоначчи - это ..." .Comments(1).Visible = False If (.Comments(1).Author = "Vladimir Billig") Then Debug.Print "OK!" End If 'Показ и удаление комментария .Comments(1).Visible = True '.Comments(1).Delete End With End Sub

В этом примере я вначале программно формирую последовательность чисел Фибоначчи, а затем к ячейке, задающей заголовок, добавляю комментарий, поясняющий сущность этих чисел. Заметьте, в Excel в отличие от Word коллекция комментариев не имеет метода Add, — они вводятся специальным методом AddComment объекта Range. Они по-другому показываются, используя свойство Visible, что, пожалуй, более естественно. Заметьте также, что свойство Author можно использовать только для чтения.

• QueryTables – возвращает одноименную коллекцию с элементами класса QueryTable, каждый из которых представляет таблицу, полученную на основе запроса к внешнему источнику данных. Внешним источником данных может быть база данных, Web-страницы в Интернет. Я уже вскользь упоминал о построении Web-запроса, когда рассматривал внешние ссылки при описании объекта Application. Следует сказать, что, несмотря на то, что объект QueryTable присутствовал и в предыдущей версии Office 97, в нынешней версии этот объект претерпел существенные изменения, и у него появилось множество новых свойств, что, в первую очередь, связано с возможностью построения Web-запросов. Об этом объекте я еще скажу более подробно чуть позже.

• Hyperlinks – возвращает одноименную коллекцию с элементами класса Hyperlink, - гиперссылками, задающими связи (переходы) ячеек рабочего листа с внешним миром. В качестве гиперссылки может, например, использоваться URL-адрес в Internet. Объекты Hyperlink относятся к группе схожих объектов, встречающихся во всех приложениях Office 2000. Я подробно рассказывал о гиперссылках в [3] при описании объектов приложения Word.

• Outline – возвращает одноименный объект, задающий структурированное представление рабочего листа. Зачастую данные, представленные на рабочем листе можно структурировать, сжимая или разворачивая их по мере необходимости. Типичной является ситуация, когда данные, отражающие работу некоторого предприятия, представлены по дням, неделям, месяцам, кварталам и годам. При глобальном анализе деятельности предприятия нас могут интересовать только сводные результаты за каждый год, в этом случае нижние уровни структуры будут свернуты, но при необходимости их всегда можно развернуть вплоть до ежедневного анализа. Поскольку таблица двумерная, то возможны два направления свертки данных. Так, например, второе направление может отражать структуру предприятия: цеха, участки, группы, отдельного работника. Метод ShowLevels(RowLevels, ColumnLevels) объекта Outline позволяет показать структуру рабочего листа, где уровни детализации по строкам и столбцам задают параметры метода. Чаще всего, для проведения подобного анализа целесообразнее использовать сводные таблицы – объект PivotTablle.

• AutoFiter – возвращает одноименный объект, позволяющий производить фильтрацию данных в специального рода Excel-запросах. О фильтрах и их использовании я расскажу подробно и приведу соответствующие примеры.

• Свойства Next и Previous возвращают следующую и предыдущую страницу рабочей книги.

• Коллекции HPageBreaks и VpageBreaks, возвращаемые при вызове одноименных свойств, используются для того, чтобы разбить нужным образом электронную таблицу на страницы, задавая горизонтальное и вертикальное разбиение. Это бывает важно при формировании отчетов и вывода результатов на печать. О них уже шла речь, при рассмотрении коллекции WorkSheets.

• Объект PageSetup позволяет установить параметры страницы при выводе на печать.

Подводя итоги, заметим, что рабочий лист помимо того, что он представляет электронную таблицу ячеек, может содержать и другие элементы: диаграммы, рисунки, OLE -объекты. В нем могут быть также расположены сводные таблицы и таблицы, построенные на основе запросов к внешним источникам данных. Некоторые из ячеек рабочего листа снабжаются комментариями и имеют ссылки на внешние адреса. Ячейки и области данных могут иметь имена. Наконец, данные разрешается свернуть и отобразить структуру такого листа с нужной степенью подробности.