2.3.Коллекции Excel.
2.3.1.Коллекция WorkBooks

Коллекция Workbooks представляет все открытые книги приложения Excel.

 

В этой коллекции имеются два основных свойства:
 
- свойство Count возвращает число элементов коллекции (семейства)

- свойство Item — конкретный элемент семейства, это индекс - порядковый номер или имя книги.

 

Sub КолВо()
MsgBox Workbooks.Count
End Sub
 

Sub ИмяВторойКниги()
MsgBox Workbooks.Item(2).Name
End Sub

 

Основные методы:
 

Метод

Описание

Пример

1

 ADD

добавить новую пустую книгу в коллекцию

Workbooks.add

2

OPEN

открыть уже существующую книгу, хранящуюся в памяти

Workbooks.Open ("с:\ объект.xls")

3

CLOSE

закрыть книгу

Workbooks.close

 
Объект Workbook
                                                                                                    

В иерархии MS Excel объект workbook идет сразу после объекта Application и представляет файл рабочей книги. Рабочая книга хранится в файлах формата либо XLS (стандартная рабочая книга), либо XLA (полностью откомпилированное приложение). Объект workbook возвращается либо как элемент семейства workbooks соответствующим свойством, либо как активная рабочая книга — свойством Active Workbook, либо как книга, в которой данный код выполняется — свойством Thisworkbook.

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

Объект Workbook обладает большим набором свойств. Свойства ActiveChart и Ас-tivesheet возвращают активную диаграмму и лист. Свойства charts, Comments, Names, Sheets, Windows, Worksheets возвращают семейства диаграмм, примечаний, имен, листов, окон и рабочих листов данной книги.

 

Sub пароль()
ActiveWorkbook .Password = "123 "
End Sub
 
Sub ИмяЛиста()
ThisWorkbook.ActiveSheet.Name = "Отчет 58"
End Sub
 

Sub Автор()
ActiveWorkbook.Author = "Имя автора"
End Sub

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

Объект workbook имеет обширную коллекцию методов, позволяющих реализовывать большой спектр операций от активизации книги до составления сложного отчета с помощью сводной таблицы.

Sub СохранитьКак()
ThisWorkbook.SaveAs ("2.2")
End Sub

Sub АктивироватьПервыйЛист()
ThisWorkbook.Activate
End Sub

Sub Закрытькнигу()
ThisWorkbook.Close
End Sub

Sub ОткрытьНовоеОкноВКниге()
ThisWorkbook.NewWindow
End Sub

Sub ПечатьКниги()
ThisWorkbook.PrintOut
End Sub

Sub ПредварительныйПросмотр()
ThisWorkbook.PeintPreview
End Sub


 

ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map