Основы офисного программирования и язык VBA


Пример 1.3


Public Sub WorkWithbooks()

' Работа с коллекцией книг

Dim N As Long, i As Byte

Dim PathDir As String

PathDir = "e:\O2000\CD2000\Ch1\"

With Workbooks

N = .Count

Debug.Print "Число рабочих книг в коллекции Workbooks " & _

"при открытии приложения Excel = ", N

' Добавление 2-х новых книг

.Add

.Add

'Добавление двух существующих книг

.Open (PathDir & "BookThree.xls")

.Open (PathDir & "BookFive.xls")

N = .Count

Debug.Print "Число книг после 2-х вызовов методов Add и Open =", N

Debug.Print "Имена книг в коллекции:"

For i = 1 To .Count

Debug.Print .Item(i).Name

Next

'Закрытие двух книг и, следовательно, удаление их из коллекции

.Item(2).Close

.Item(3).Close

N = .Count

Debug.Print "Число книг после двух вызовов метода Close =", N

Debug.Print "Имена книг, оставшихся в коллекции:"

For i = 1 To .Count

Debug.Print .Item(i).Name

Next

End With

End Sub




Начало  Назад  Вперед



Книжный магазин