142
DataModule3.ADOQuery6.Open;
end;
procedure TForm5.Button6Click(Sender: TObject);
var mydir:string;
k:byte;
begin
Getdir(0,MyDir);
XLApp:= CreateOleObject('Excel.Application');
XLApp.WorkBooks.Add(MyDir + '\2.xls');
xlAPP.visible:=true;
DataModule3.ADOQuery6.First;
k:=1;
while not DataModule3.ADOQuery6.eof do begin
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,1]:=DataModule3.ADOQuery6.Fiel
dByName('Шифр').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,2]:=DataModule3.ADOQuery6.Fiel
dByName('Ед_изм').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,3]:=DataModule3.ADOQuery6.Fiel
dByName('Кол_во').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,4]:=DataModule3.ADOQuery6.Fiel
dByName('Стеллаж').asstring;
k:=k+1;
DataModule3.ADOQuery6.Next;
XLApp.WorkBooks[1].WorkSheets[1].Cells[2,3]:=Datetostr(date);
end;
end;
end