delphi导出数据至Excel的七种方法及比较.docxVIP

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