[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); что не так делаю?

[pesi]

открываем книгу екселя по порядковому номеру листа, тобишь второй лист

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
MSe :OLEvariant;
begin
mse:= CreateOleObject('Excel.Application');
mse.Visible:=true;
mse.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
mse.WorkBooks[1].WorkSheets[2].SELECT;
end;

открываем книгу екселя по имени листа, тобишь лист3

Код:

procedure TForm1.Button6Click(Sender: TObject);
var
MSe :OLEvariant;
begin
mse:= CreateOleObject('Excel.Application');
mse.Visible:=true;
mse.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
mse.WorkBooks[1].WorkSheets['Лист3'].activate;
end;