[derekt]

Пытаюсь разобраться по работе delphi с таблицами excel. Возникли проблемы с использованием некоторых функций. Собственно сами функции:

Модули ComObj, ActiveX подключены.

var MyExcel: OleVariant; - глобальная переменная

1. Определяем запущен ли excel

Код:

function CheckExcelRun: boolean;
begin
try
MyExcel:=GetActiveOleObject(ExcelApp);
Result:=True;
except
Result:=false;
end;
end;

2.После создания рабочей книги функцией

Код:

function AddWorkBook(AutoRun:boolean=true):boolean;
begin
if CheckExcelRun then
begin
MyExcel.WorkBooks.Add;
Result:=true;
end
else
if AutoRun then
begin
RunExcel;
MyExcel.WorkBooks.Add;
Result:=true;
end
else
Result:=false;
end;

пытаюсь ее сохранить вызовом функции

Код:

function SaveWorkBook(FileName:TFileName; WBIndex:integer):boolean;
begin
try
MyExcel.WorkBooks.Item[WBIndex].SaveAs(FileName);
if MyExcel.WorkBooks.Item[WBIndex].Saved then
Result:=true
else
Result:=false;
except
Result:=false;
end;
end;

Админ: Пользуемся тегами при оформлении кода!

но компилятор выдает ошибку при вызове функции
Not enought actual parameters
Could not compile used unit .....