delphi导出Excel

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;