2.7.4. Объект Application

Во всех приложениях Office 2000 участвует объект Application, представляющий само приложение. Это корневой объект, в который вложены все остальные объекты.

Свойства-участники этого объекта представляют вложенные объекты. Если X является свойством-участником объекта Application, то обращение к свойству X возвращает ссылку на объект X.

Обращение Application.X.Y.Z, где X,Y,Z-свойства-участники, позволяет добраться до объекта Z, находящегося на третьем уровне вложенности. Обычно цепочка именования начинается спецификатором (объектом) Application, но если методы и свойства относятся к глобальным, то для них спецификатор Application можно опускать.

Например,

Application.ActiveSheet можно заменить более коротким ActiveSheet

Application.Quit требует обязательного присутствия спецификатора, так как метод Quit –не глобальный.

2.7.5. Объекты Range и Selection

Объекты Range и Selection используются во всех приложениях Office 2000.

Объекты Range используются для работы с произвольной последовательностью элементов.

Множество объектов имеют свойство Range. При обращении к свойству Range таких объектов в качестве результата получается соответствующий диапазон – ссылка на объект Range. В ряде случаев можно определить новый объект класса Range, используя метод Range.

Объект Selection задает выделенную. область документа (непрерывную область элементов), но не является диапазоном.

Двойственность пары объектов Range и Selection заключается в следующем:

• почти каждую задачу, которую можно решить в терминах объекта Selection, можно решить и в терминах объекта Range;

• у объекта Range есть метод Select, который выделяет заданный диапазон, создавая объект Selection, после чего можно использовать свойства и методы этого объекта. Совершенно симметрично объект Select имеет метод Range, который определяет диапазон, связанный с областью выделения, после чего можно работать с этим диапазоном, используя свойства и методы объекта Range.

Свойство Selection возвращает уже существующий объект, а метод Select позволяет создать новый объект.

2.7.6. Оператор With для операций с одним объектом.

Если в одном блоке программы требуется выполнить несколько операций с одним объектом, то это можно явно указать оператором With, а затем не повторять имя этого объекта.

Формат записи оператора:

With объект

[операторы]

End With

Здесь объект-имя объекта или переменной, определенного пользователем типа, а операторы- последовательность операторов, которые могут действовать с указанным объектом. В этих операторах имена методов и свойств указанного объекта можно начинать с точки, опуская имя самого объекта.

Пример 2.10. Использование оператора With.

Sub pr210()

With Selection.Font

.Name=”Times New Roman”

.FontStyle = “Bold”

.Size = 12

.Strikethrough = False

.Superskript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

End With

End Sub

Программа задает свойства объекта Font.

2.8.Обработка ошибок

Visual Basic является наиболее безопасной для пользователя средой разработки. Решаются эти проблемы при помощи оператора On Error.

Оператор On Error устанавливает перехват ошибки. Он инструктирует Visual Basic, что нужно делать в тех случаях, когда происходит ошибка. Можно выбрать один из двух вариантов использования этого оператора.

Оператор On Error Resume Next

игнорирует ошибку и программа продолжает выполняться со следующей строки кода. Инструкция Resume позволяет процедуре продолжать операции после обработки ошибок. Эта инструкция может быть использована только в подпрограмме обработки ошибок.

Оператор On Error Goto label

означает переход к метке label и выполнение кода, начинающегося с этой метки.

Чтобы улучшить работу программы, в ее код нужно добавить обработчик ошибок.

Visual Basic имеет встроенный объект ошибок с именем Err.

Когда происходит ошибка, подробная информация о ней помещается в свойства объекта Err. К таким свойствам относятся Number (Номер), возвращающее уникальный номер ошибки и Description (Описание) – короткая фраза с описанием ошибки.

Пример 2.11. Обработка ошибок в программе.

Sub pr211()

Dim a As Integer, b As Integer, y As Integer

On Error GoTo Errobr

a = InputBox("введите число 1")

b = InputBox("введите число 2")

y = Val(a) * Val(b)

MsgBox (y)

Exit Sub

Errobr:

If Err.Number = 6 Then

MsgBox ("Очень большое число")

Else

MsgBox ("Ошибка " & Err.Description)

End If

Exit Sub

End Sub