var
xlapp, sheet : variant;
i :integer;
try
xlapp := createoleobject('excel.application');
except
showmessage('not found excel in your system, so can not create file!');
exit;
end;
filename :='tmp.xls';
xlapp.workbooks.add;
sheet := xlapp.workbooks[1].worksheets[1];
i :=1;
while not qry_Rep.Eof do
begin
sheet.cells[i,1].value :=qry_Rep.FieldValues['id'];
sheet.cells[i,2].value :=qry_Rep.FieldValues['name'];
sheet.cells[i,3].value :=qry_Rep.FieldValues['info'];
sheet.cells[i,4].value :=qry_Rep.FieldValues['directory'];
sheet.cells[i,5].value :=qry_Rep.FieldValues['id'];
sheet.cells[i,6].value :=qry_Rep.FieldValues['parentid'];
i :=i+1;
qry_Rep.Next;
end;
xlapp.Columns.AutoFit;
sheet.Saveas(filename);
xlapp.quit;
xlapp:=unassigned;