delphi导出Excel

最新推荐文章于 2023-12-28 13:56:02 发布

转载最新推荐文章于 2023-12-28 13:56:02 发布 · 799 阅读

文章标签：

#delphi #excel #integer #microsoft #function #login

delphi 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一种使用Delphi简化导出Excel文件的方法。通过创建一个动态生成的ADOQuery组件并利用Excel COM对象，可以轻松地从数据库导出数据到Excel文件。此方法避免了复杂的ADOQUERY或TABLE设置。

delphi导出EXCEL网上的代码,不是需要ADOQUERY,就是TABLE,再不就是与DBGRID绑定.每一次使用总是特别麻烦.前几天想自己不如将EXCEL的导出函数给改一下.于是自己加了一些东西.这样子好了.以后调用方便至极.呵呵.

调用方法:saveAsExcel('select users as [用户名],pwd as [用户密码] from login','c:/aaaa.xls');

在代码中有一个动态生成的adoqueryx,需要联您的数据源Connection:=form1.ADOConnection1;

这个地方自己根本情况修改一下!

function saveAsExcel(sqlstr,filename:string):integer; var fieldNum: integer; i,j : integer; exls,sheet: variant; ADOQueryx: TADOQuery; begin try exls:=createoleobject('Excel.application'); sheet:=createoleobject('excel.sheet'); except application.MessageBox('请先安装MICROSOFT EXCEL！','提示',mb_ok+mb_iconinformation); exit; end; sheet:=exls.workBooks.Add; adoqueryx:=Tadoquery.create(nil); adoqueryx.Connection:=form1.ADOConnection1; adoqueryx.SQL.Clear; adoqueryx.SQL.Add(sqlstr); adoqueryx.Open; with adoqueryx do begin DisableControls; for i:=1 to adoqueryx.FieldCount do begin exls.Cells[1,i].value:=adoqueryx.Fields[i-1].DisplayName; end; first; i:=2; while not eof do begin for j:=1 to fieldcount do begin exls.Cells[i,j]:=fields[j-1].AsString; end; next; i:=i+1; end; EnableControls; exls.WorkBooks[exls.WorkBooks.Count].SaveAS(filename); exls.activeWorkBook.saved:=true; exls.workbooks.close; exls.quit; end; result:=1; adoqueryx.Close; adoqueryx.Destroy; adoqueryx:=nil; end;