[Alexir]

Добрый вечер! есть шаблон и 3 листа подскажите пожалуйста , как выгрузить данные на конкретный лист в excel.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Minimize;
xl:=CreateOleObject ('Excel.Application');
xl.visible:=false;
xl.WorkBooks.open ('c:\прога\l.xls');
xl.ActiveSheet.ConnectTo(xl.ActiveSheet as _Worksheet);
xl.cells[15,4]:=adotable1.fieldbyname('Имя').value;
xl.visible:=true;
end;

Admin: Пользуемся тегами!

пробовал так но выдает ошибку Operator not applicable to this operand type
в строке xl.ActiveSheet.ConnectTo(xl.ActiveSheet as _Worksheet); что не так делаю?