memo1 :tmemo.create(self); memo1.clear; memo1.parent:=form1; memo1.visible:=false; excelapp.workbooks.add; sheet1:=excelapp.workbooks[1].worksheets[1]; with adoquery1 do begin for i:=0 to adoquery1.fieldcount -1 do memo1.lines.add for i:= ............... adoquery.next; end; memo1.pastespacel; .........end; 就是以上思,其余的我就不写了,好累!需要更进一步 [email protected]联系我
memo1.clear;
memo1.parent:=form1;
memo1.visible:=false;
excelapp.workbooks.add;
sheet1:=excelapp.workbooks[1].worksheets[1];
with adoquery1 do
begin
for i:=0 to adoquery1.fieldcount -1 do
memo1.lines.add
for i:=
...............
adoquery.next;
end;
memo1.pastespacel;
.........end; 就是以上思,其余的我就不写了,好累!需要更进一步 [email protected]联系我