своеобразный отчёт из бд

[TaTT DoGG]

блин ничего не получается.... как открывать экселевский файл, добавлять строку, потом ещё раз добавлять строку... пока не сохраню

в общем всё, накачал статей. сегодня вечером буду разбираться
D-mon спс за помощь

не получается проверять открыт ли файл tm.xls
кто подскажет как...??

[D-mon]

Вот например поиск окна экселя открытого...
E := Findwindow(nil, <Microsoft Excel - Книга1>);
if e<>0 then ...

[TaTT DoGG]

var
 XLApp,Colum,Sheet:Variant;
 e,index,i:Integer;
begin
 e:=Findwindow(nil,'Microsoft Excel - Price.xls');
 if e=0 then begin
 XLApp:= CreateOleObject('Excel.Application');
 CopyFile('data\datapr.dbe','Price.xls',true);
 XLApp.workbooks.open(ThisDir+'Price.xls');
 XLApp.WorkBooks[1].WorkSheets[1].Columns[2].NumberFormat:=DBText2.Caption[1]+'0';
 end;
 XLApp.Visible:=true;
 index:=3;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Заказ'];
 Sheet.Cells[index,1]:=DBText1.Caption;
 Sheet.Cells[index,2]:=DBText2.Caption;
 Inc(index);

при первом нажатии на кнопку открывается excel и в него добавляется строка
когда нажимаю второй раз, вылетает ошибка
как обеспечить добавление второй строки?

блин всё перепробовал
кидает ошибку при втором добавлении...
я думаю нужно сфокусироваться на окне экселя, а потом добавлять
знает кто как эту проблему решить?

как активировать лист уже открытой книги?

[mopozoff]

for i:=1 to 10 do
if sheet.cells[i,1]='' then 
begin
index:=i;
break;
end;

Определяю index первой пустой строке на листе. Выдает ошибку.

[TaTT DoGG]

у меня тоже не работает... пробовал писать if sheet.cells[i,1]=nil - тоже ошибка... мот условие другое ставить надо? подскажите кто знает