Коллекция Sheets

Листинг 2. Работа с коллекцией Workbooks

Пример

Подготовим в текстовом редакторе Word таблицу, а затем импортируем и преобразуем ее в таблицу Excel.

Таблица имеет вид:

В этой таблице три столбца, первый из них содержит даты, остальные – числовые. Таблицу вместе с заголовками мы записали в отдельный текстовый файл. После этого запускаем в Excel процедуру, приведенную в листинге 1 (см. здесь).

Листинг 1. Импорт таблицы в Excel

Public Sub ToTable() Dim Path1 As String Workbooks("BookOne.xls").Activate Path1 = ActiveWorkbook.Path Workbooks.OpenText FileName:=Path1 & "\Table.txt", _ StartRow:=2, DataType: = xlFixedWidth, _ FieldInfo:=Array(Array(0, 4), Array(8, 9), _ Array(9, 1), Array(13, 9), Array(14, 1)) End Sub

Заметьте, мы рассматриваем эту таблицу, как состоящую из столбцов фиксированной ширины – каждый из них начинается с одной и той же позиции. В параметре Fieldinfo указывается, что первый столбец должен быть представлен в формате даты, второй и третий столбцы начинаются с 10-й и 15-й позиции и не требуют специального форматирования. Разделители, которые будут опущены при форматировании, начинаются с 9-й и 14-й позиции соответственно. Заголовок таблицы и заголовки столбцов, находящиеся в двух первых строках, при импорте опускаются. Вот как будет выглядеть эта таблица, импортированная в Excel:

В листинге 2 (см. здесь) приведен пример программы, позволяющий продемонстрировать детали работы с коллекцией Workbooks.

Public Sub ExampleWorkbooks() Dim N As Long Dim BookOnePath As String With Workbooks N =.Count Debug. Print "Число рабочих книг в коллекции Workbooks _ при открытии Excel = ", N.Add.Add BookOnePath = Workbooks.Item("BookOne"). Path.Open (BookOnePath & "\BookThree").Open (BookOnePath & "\BookFive") Debug. Print "Число книг после 2-х вызовов _ методов Add и Open =",.Count Debug. Print "Имена книг в коллекции:" For i = 1 To.Count Debug.Print.Item(i).Name Next.Item(N + 1).Close.Item(N + 1).Close End With End Sub

Процедуру ExampleWorkbooks мы поместили в модуль, связанный с существующей рабочей книгой Excel “BookOne”. В этом же каталоге хранятся книги BookThree и BookFive.

Коллекция Sheets представляет коллекцию листов двух типов: рабочих листов и диаграмм. Поэтому каждый элемент коллекции Sheets может быть объектом одного из двух классов: Worksheet или Chart. Наряду с коллекцией Sheets, существуют коллекции Worksheets и Charts. Они представляют коллекции рабочих листов и диаграмм, выделенных из коллекции Sheets. Но объекты, задающие эти коллекции, принадлежат классу Sheets и используют его свойства и методы.

Дата добавления: 2014-01-05