一;delphi快速导出excelusesComObj,clipbrd;functionToExcel(sfilename:string;ADOQuery:TADOQuery):boolean;constxlNormal=-4143;vary:integer;tsList:TStringList;s,filename:string;aSheet:Variant;excel:OleVariant;savedialog:tsavedialog;beginResult:=true;tryexcel:=C