delphi导出数据至excel的几种方法及比较

《delphi导出数据至excel的几种方法及比较》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、delphi导出数据至Excel的几种方法及比较一、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:=tr

2、ue;tryexcel:=CreateOleObject('Excel.Application');excel.workbooks.add;except//screen.cursor:=crDefault;showmessage('无法调用Excel！');exit;end;savedialog:=tsavedialog.Create(nil);savedialog.FileName:=sfilename;//存入文件savedialog.Filter:='Excel文件(*.xls)

3、*.xls';ifsavedi

4、alog.ExecutethenbeginifFileExists(savedialog.FileName)thentryifapplication.messagebox('该文件已经存在，要覆盖吗？','询问',mb_yesno+mb_iconquestion)=idyesthenDeleteFile(PChar(savedialog.FileName))elsebeginExcel.Quit;savedialog.free;//screen.cursor:=crDefault;Exit;end;exceptExc

5、el.Quit;savedialog.free;screen.cursor:=crDefault;Exit;end;filename:=savedialog.FileName;end;savedialog.free;iffilename=''thenbeginresult:=true;Excel.Quit;//screen.cursor:=crDefault;exit;end;aSheet:=excel.Worksheets.Item[1];tsList:=TStringList.Create;//tsList.Ad

6、d('查询结果');//加入标题s:='';//加入字段名fory:=0toadoquery.fieldCount-1dobegins:=s+adoQuery.Fields.Fields[y].FieldName+#9;Application.ProcessMessages;end;tsList.Add(s);trytryADOQuery.First;WhileNotADOQuery.Eofdobegins:='';fory:=0toADOQuery.FieldCount-1dobegins:=s+ADOQuery.

7、Fields[y].AsString+#9;Application.ProcessMessages;end;tsList.Add(s);ADOQuery.next;end;Clipboard.AsText:=tsList.Text;exceptresult:=false;end;finallytsList.Free;end;aSheet.Paste;MessageBox(Application.Handle,'数据导出完毕！','系统提示',MB_ICONINFORMATIONorMB_OK);tryifcopy(F

8、ileName,length(FileName)-3,4)<>'.xls'thenFileName:=FileName+'.xls';Excel.ActiveWorkbook.SaveAs(FileName,xlNormal,'','',False,False);exceptExcel.Quit;screen.cursor:=crDefault;exit;end;Excel.Visible:=false;//true会自动打开已经保存的excelExcel.Quit;Excel:=UnAssigned;end;调用:

9、ToExcel('D:a.xsl',QueryToExcel);//路径可以自定义-------------------------------------------------------------------------------------------------**********************************