[Alexir]

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

Код:

1 2 3 4 5 6 7 8 9 10

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]

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

Код:

1 2 3 4 5 6 7 8 9

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

Код:

1 2 3 4 5 6 7 8 9

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;