Показать сообщение отдельно
  #1  
Старый 18.05.2017, 11:47
derekt derekt вне форума
Прохожий
 
Регистрация: 18.05.2017
Сообщения: 6
Версия Delphi: delphi 7
Репутация: 10
По умолчанию Помогите с кодом delphi 7

Пытаюсь разобраться по работе 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 .....
Ответить с цитированием