Использование массивов и коллекций для управления данными

Следующий шаг: коллекции Visual Basic for Applications

Если в будущем вы решите написать макросы Visual Basic для приложений Microsoft Office, то обнаружите, что в объектных моделях Microsoft Word, Microsoft Excel, Microsoft Access, Microsoft PowerPoint и некоторых других приложений, которые поддерживают язык программирования Visual Basic for Applications, коллекции играют очень важную роль. Например, в Word все открытые документы текстового процессора хранятся в коллекции Documents, а каждый параграф текущего документа - в коллекции Paragraphs. Вы можете манипулировать этими коллекциями с помощью цикла For Each...Next точно так же, как вы делали это с другими коллекциями из предыдущих примеров.

Например, следующий пример кода является частью макроса Word 2002, который использует цикл For Each...Next для проверки каждого открытого документа из коллекции Documents на предмет имени файла MyLetter.doc. Если этот файл в коллекции найден, макрос сохраняет его с помощью метода Save. Если файл в коллекции не найден, макрос пытается открыть этот файл из папки My Documents, расположенной на диске C.

Dim aDoc As Object
Dim docFound As Boolean
Dim docLocation As String
docFound = False
docLocation = "c:\my documents\myletter.doc"
For Each aDoc In Documents
  If InStr(1, aDoc.Name, "myletter.doc", 1) Then
    docFound = True
    aDoc.Save
    Exit For
  End If
Next aDoc
If docFound = False Then
  Documents.Open FileName:=docLocation
End If

Макрос начинается с объявления трех переменных. Объектная переменная aDoc представляет текущий элемент коллекции в цикле For Each...Next. Переменной Boolean с именем docFound будет присвоено логическое значение True, если документ в коллекции Documents найден. Строковая переменная docLocation будет содержать путь файла MyLetter.doc на диске. (Эта процедура предполагает, что файл MyLetter.doc находится в папке My Documents на диске C.)

Цикл For Each...Next перебирает все документы в коллекции Documents и ищет файл MyLetter. Если файл с помощью функции InStr (которая ищет одну строку в другой) обнаружен, то файл сохраняется. Если файл не найден, макрос пытается открыть его с помощью метода Open объекта Documents. Также обратите внимание на оператор Exit For, который используется для выхода из цикла For Each...Next, когда файл MyLetter найден и сохранен на диск. Exit For - это специальный оператор программы, который можно использовать для выхода из циклов For...Next или For Each...Next, когда продолжение их работы становится нежелательным. В нашем примере, если файл MyLetter.doc в коллекции уже найден, продолжение поиска будет безрезультатно. Здесь оператор Exit For предоставляет удобный способ остановить цикл сразу, как только его задача выполнена.

Краткая справка по лекции 11

Dim i As Short
Dim Total As Single
For i = 0 To UBound(Temperatures)
  Total = Total + Temperatures(i)
Next

Dim ctrl As Control
For Each ctrl In Controls
  ctrl.Text = "Нажми меня!"
Next

Dim ctrl As Control
For Each ctrl In Controls
  Ctrl.Left = Ctrl.Left + 25
Next Ctrl

Dim ctrl As Control
For Each ctrl In Controls
  If ctrl.Name <> "btnMoveObjects" Then
  ctrl.Left = ctrl.Left + 25
  End If
Next

Dim URLsVisited As New Collection()
URLsVisited.Add(TextBox1.Text)