delphi导出数据至Excel的几种方法和比较.docVIP

delphi导出数据至Excel的几种方法及比较 一、delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog; begin Result := true; try excel:=CreateOleObject(Excel.Application); excel.workbooks.add; except //screen.cursor:=crDefault; showmessage(无法调用Excel！); exit; end; savedialog:=tsavedialog.Create(nil); savedialog.FileN