Пример 2.3

Private Sub CommandButton5_Click()

ChooseBook

End Sub

Public Sub ChooseBook()

'Выбор книги, с которой будет работать пользователь

Const PathDir As String = "e:\O2000\CD2000\Ch2\"

Dim Answer As Variant

Dim CurrentBook As String

Dim Book As Workbook

Dim Found As Boolean

Answer = InputBox(prompt:= _

"Выберите книгу, с которой будете работать (1/2/3)", Default:=1)

Select Case Answer

Case 1

CurrentBook = "BookOne.xls"

Case 2

CurrentBook = "BookTwo.xls"

Case 3

CurrentBook = "BookThree.xls"

Case Else

CurrentBook = "I don't know such book"

End Select

MsgBox ("Your choose is " & CurrentBook)

'Проверяем есть ли уже книга в коллекции

Found = False

For Each Book In Workbooks

If Book.Name = CurrentBook Then

Found = True

Exit For

End If

Next Book

If Found Then

'Активизируем выбранную книгу

Workbooks(CurrentBook).Activate

ElseIf CurrentBook = "I don't know such book" Then

MsgBox ("I don't know such book")

Else 'Добавляем книгу в коллекцию

Workbooks.Open PathDir & CurrentBook

Workbooks(CurrentBook).Activate

End If

End Sub