9.3.2. Использование методов объекта

В общем виде синтаксис для метода объекта выглядит следующим образом:

Object.Metod

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

Object.Metod аргумент1, аргумент2, …

Например, чтобы сохранить активную рабочую книгу MS Excel запишем:

ActiveWorkbook.SaveAs Filename: = "С:\Мои документы\Кадастровые_номера.xls", FileFormat: = xlNormal.

9.3.3. Объявление объектных переменных

Посредством инструкции Dim можно объявить любую переменную, которая будет содержать ссылку на любой объект VBA или приложения. Общий синтаксис таков:

Dim xlApp As Excel.Application

Dim doсWord As Word.Application

Dim objApp As Acad.Application

9.3.4. Использование объектов в выражениях

Перед тем как передать объектной переменной ссылку на нужный объект, необходимо установить эту переменную. Для того чтобы присвоить объектной переменной ссылку на объект, следует ввести ключевое слово Set. В общем виде это выглядит та:

Set Var = Object

Где Var – любая объектная переменная. Object – любая допустимая ссылка или объектное выражение. Например, установим переменной aSheet ссылку на активный рабочий лист рабочей книги MS Excel

Dim aSheet As Worksheet

Set aSheet = Applicstion.AktiveSheet

Другой пример. Установим переменной objApp ссылку на приложение AutoCAD, а переменной objDos ссылку на рабочий чертеж приложения AutoCad.

Dim objApp As AcadApplication

Dim objDos As AcadDocument

Set objApp = GetObject (,  “AutoCAD.Application")

Set objDoс = objApp. ActiveDocument

9.4. Принятие решения в Visual Basic for Appliсation 9.4.1. Выбор с помощью If …Then Конструкция If …Then имеет две различные синтаксические формы. Синтаксис этой конструкции позволяет задавать ее в одной строке или нескольких строках программы:

If condition Then statement

If condition Then

Statement

End If

Где condition – некоторое логическое выражение, а statement – одна или несколько инструкций.

Например:

If temperature > 100 Then MsBox "Очень жарко"

Вторая конструкция называется блоком. Пример:

 If temperature > 100 Then

MsgBox "Очень жарко"

MsgBox "Уменьшите температуру"

End If

9.4.2. Выбор между ветвями с помощью If …Then …Else

Аналогично If …Then инструкция If …Then …Else имеет две формы: однострочную и блоковую.

Общий синтаксис таков:

If condition Then statement Else elsestatement

Пример

If temperature > 100 Then MsgBox "Слишком жарко" Else MsgBox_"Прохладно"

If condition Then

Statement

Else

Elsestatement

End If

Пример

If temperature > 100 Then

MsgBox "Слишком жарко"

Else

MsgBox "Прохладно"

End If

9.4.3. Использование If …Then …ElseIf

В VBA предусмотрена также упрощенная версия инструкции If …Then …Else, которая может быть использована как упрощенный эквивалент вложенных инструкций If …Then …Else. Общий синтаксис таков:

If condition1 Then

Statements

Elself condition2

ElseStatement

[Else

ElseStatement]

End If

Например

If temperature > 100 Then

MsfBox "Слишком жарко"

Elself temperature > 50 Then

MsgBox "Нормально"

Else

MsgBox "Холодно"

End If