После внесения изменений необходимо
сохранить рабочую книгу. Для этого используем метод SaveAs коллекции Workbooks
или объекта ActiveWorkbook. Функция SaveWorkBookAs реализует эту возможность на
Delphi. Используем E.DisplayAlerts:=False(True) для отключения (включения)
диалогового окна подтверждения записи.
Code:
Function SaveWorkBookAs(file_:string): boolean;
begin
SaveWorkBookAs:=true;
try
E.DisplayAlerts:=False;
E.ActiveWorkbook.SaveAs(file_);
E.DisplayAlerts:=True;
except
SaveWorkBookAs:=false;
end;
End;
Одновременно может быть открыто
несколько книг, в которые вносится или из которых получается информация. Их
количество содержится в свойстве Count коллекции WorkBooks. Используя следующий
оператор на Visual Basic, можем получить их имена.
For a_ = 1 To Application.Workbooks.Count
MsgBox (Application.Workbooks.Item(a_).Name)
Next a_
Для активации любой книги из списка
используем процедуру Activate. Смотрите пример:
Windows("Книга1").Activate
Эти возможности можно реализовать в Delphi
как набор отдельных функций.
Для закрытия книги
используется метод Close коллекции Workbooks или объекта ActiveWorkbook.
Функция CloseWorkBook закрывает активный документ.
Code:
Function CloseWorkBook:boolean;
begin
CloseWorkBook:=true;
try
E.ActiveWorkbook.Close;
except
CloseWorkBook:=false;
end;
End;
Excel закрывается
методом Quit объекта Application.
Code:
Function CloseExcel:boolean;
begin
CloseExcel:=true;
try
E.Quit;
except
CloseExcel:=false;
end;
End;
После того, как
создан минимальный набор функций, можно переходить к демонстрации возможностей
программирования Excel. Для этого создадим форму и разместим на ней кнопку. В
программной части укажем ссылку на используемую библиотеку MyExcel, в процедуре
отклика на нажатие запишем следующий программный текст:
Мы рассмотрели
общий вид объектной модели Excel и примеры нескольких функций работы с книгами
и листами. Далее изучим вопросы записи (чтения) информации в ячейки и
программирование их свойств.
