Пытаюсь разобраться по работе 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 .....