Определим некоторые свойства объекта MyFile.

MyFile.Ыате="ПРИМЕРЫ МАКРОСОВ.xls" MyFile. Deiliniter=" , " MyFile.Description=

"Макросы, реализующие финансовые функции"

Свойства могут содержать информацию, которая передается пользователю, например дата (Date) и время (Time) последней модификации. Также свойства могут быть использованы и для выполнения каких-либо внутренних процедур.

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

MyFileName=MyFile.Nane Имя файла

MyFileDescription=MyFile.Description Описание файла IsMyFileInUse=MyFile.InUse Используется ли файл

LengthOfMyFile=MyFile.Length Длина файла

LastChangeMyFile=MyFile.DateTime Когда был последний

раз модифицирован

Рассмотрим методы, применимые к объекту MyFile.

Например, для работы с методами можно использовать следующие инструкции:

MyFile.Delete MyFile.Close

Удаление файла Закрытие файла

64 Программирование в среде Visual Basic for Applications

Существуют следующие типы методов:

• Методы, требующие для своей работы дополнительной информации, т. е. методу должны передаваться некоторые параметры. В этом случае используется следующий синтаксис:

Объект.метод параметр!, параметр2,параметр п

Например, метод Export производит запись данных в файлы с разделенными запятыми полями и требует указать имя файла, в который будет производиться запись.

MyFile.Export "С:\ MY BASE.Asc" Запись данных в файл

С помощью метода WriteValue можно записать некоторое значение в файл, организованный по строкам и столбцам. Для этого необходимо указать методу номер строки, номер столбца и само значение:

MyFile.WriteValue 5,6,99 Запись в 5-ю строку

и б-й столбец числа 99

• Методы для передачи программе некоторого значения. В этом случае используется синтаксис:

Возвращаемое значение=Объект.метод

• Методы, комбинирующие первые два типа, т. е. требующие параметров и возвращающие значение. В этом случае используется синтаксис:

Возвращаемое значение=Объект.метод параметр!, параметр2,параметр п

Например, в следующем примере метод RetrieveValue возвращает в переменную MyValue значение, находящееся в 3-й строке и 7-м столбце файла MyFile.

Dim MyValue As Integer

MyValue=MyFile.RetrieveValue 3,7 значение, находящееся

в 3-й строке и 7-м столбце файла MyFile.

10. Операторы цикла ЮЛ. Оператор цикла For-Next

Для многократного выполнения одного оператора или блока операторов служит оператор цикла For-Next.

Оператор цикла For-Next имеет следующий синтаксис:

For СЧЕТЧИК = НАЧАЛЬН0Е ЗНАЧЕНИЕ То

К0НЕЧН0Е ЗНАЧЕНИЕ Step ШАГ

БЛОК ОПЕРАТОРОВ

[Exit For]

БЛОК ОПЕРАТОРОВ Next СЧЕТЧИК

Цикл For-Next обеспечивает многократное выполнение блока операторов при последовательном изменении счетчика от начального до конечного значения с указанным шагом изменения. Если Step (Шаг) в конструкции отсутствует, то по умолчанию считается, что шаг равен единице. По оператору Exit For можно выйти из оператора цикла до того, как СЧЕТЧИК достигнет последнего значения.

Рассмотрим использование оператора цикла For-Next на примере построения функции пользователя, вычисляющей разность между текущим объемом вклада и размером ссуды при постоянной годовой процентной ставке и неравномерных платежах, т. е. функции пользователя, вычисляемой по следующей формуле ([2]):

-(0)/365

где Р(1) и J(l) - размер и дата выдачи ссуды, причем Р(1) берется со знаком минус; Р (j), d(j) - размер и дата j-й выплаты; п- I- число выплат; / - годовая процентная ставка.

Option Explicit Option Base 1

Function Доход(процент As Double,

платеж As Variant, год As Variant) As Double