Delphi + Excel

[erkanat79]

Добрый день! у меня возникла такая проблема нужно переделать отчет, исходников нет, было решение при формирование отчета переделать форму отчета (отчет формируется в Excel). я делаю так
uses Excel2000.pas
procedure TForm1.Button1Click(Sender: TObject);
var LCID: integer;
Rows , Columns:integer; xlDownlevariant;
begin
LCID := GetUserDefaultLCID;
myexcel.Visible[LCID] := true;
myexcel.ActiveWindow.OnWindow:='budr21.xls';
myexcel.Range['A1', 'A1'].Select;
myexcel.Rows.Insert(xlDown);
end;
пытаюсь найти открытый файл далее мне нужно в первой строке добавить ещё 2-е пустые строки, у меня это не получаеться. помогите!
Заранее огромное спасибо!
PS Delphi 7 +Excel

 

[erkanat79]

Добрый день! Найдено решение, может кому ещё поможет:
xllist.ConnectTo(XL.ActiveSheet as _Worksheet);
xllist.Range['1:2',EmptyParam].EntireRow.Insert(xlDown);
xllist.Range['D1',EmptyParam].Select;

 

[morpheus]

решение решением, но я бы советовал при работе с экселем вопсринимать его как СОМ-обьект и работать с ним соответственно ( в нете полно примеров ). ф топку компоненты - зло, от лукавого

 

[erkanat79]

xllist

Добрый день Morpheus! помоему я только один компонент использую xllist: TExcelWorksheet;
спасибо учту выше замечание!!!