delphi导出数据至Excel的七种方法

桃扇骨 2022-07-15 01:50 193阅读 0赞

<table style="color:rgb(46,46,46); font-family:'microsoft yahei',arial,simsun; font-size:16px; line-height:24px"> 
 <tbody> 
 <tr> 
 <td style="min-width:656px"> 
 <div style="width:656px; margin:0px; padding:0px; height:0px"></div> 一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlNormal=-4143; var &nbsp;&nbsp;&nbsp; y&nbsp;&nbsp;&nbsp;&nbsp; :&nbsp; integer; &nbsp;&nbsp;&nbsp; tsList :&nbsp; TStringList; &nbsp;&nbsp;&nbsp; s,filename&nbsp; :string; &nbsp;&nbsp;&nbsp; aSheet &nbsp;:Variant; &nbsp;&nbsp;&nbsp; excel&nbsp;:OleVariant; &nbsp;&nbsp;&nbsp; savedialog&nbsp; :tsavedialog; begin &nbsp;&nbsp;&nbsp; Result := true; &nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; excel:=CreateOleObject('Excel.Application'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; excel.workbooks.add; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; except &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //screen.cursor:=crDefault; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; showmessage('无法调用Excel！'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; savedialog:=tsavedialog.Create(nil); &nbsp;&nbsp;&nbsp; savedialog.FileName:=sfilename;&nbsp;&nbsp; //存入文件 &nbsp;&nbsp;&nbsp; savedialog.Filter:='Excel文件(*.xls)|*.xls'; &nbsp;&nbsp;&nbsp; if&nbsp;&nbsp; savedialog.Execute&nbsp;&nbsp; then &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if&nbsp;&nbsp; FileExists(savedialog.FileName)&nbsp;&nbsp; then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if&nbsp;&nbsp; application.messagebox('该文件已经存在，要覆盖吗？','询问',mb_yesno+mb_iconquestion)=idyes&nbsp;&nbsp; then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DeleteFile(PChar(savedialog.FileName)) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excel.Quit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; savedialog.free; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //screen.cursor:=crDefault; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; except &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excel.Quit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; savedialog.free; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; screen.cursor:=crDefault; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; filename:=savedialog.FileName; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; savedialog.free; &nbsp;&nbsp;&nbsp; if&nbsp;&nbsp; filename=''&nbsp;&nbsp; then &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; result:=true; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excel.Quit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //screen.cursor:=crDefault; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; aSheet:=excel.Worksheets.Item[1]; &nbsp;&nbsp;&nbsp; tsList:=TStringList.Create; &nbsp;&nbsp;&nbsp; //tsList.Add('查询结果');&nbsp;&nbsp; //加入标题 &nbsp;&nbsp;&nbsp; s:='';&nbsp;&nbsp; //加入字段名 &nbsp;&nbsp;&nbsp; for y := 0 to adoquery.fieldCount - 1 do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=s+adoQuery.Fields.Fields[y].FieldName+#9 ; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.ProcessMessages; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; tsList.Add(s); &nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ADOQuery.First; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; While Not ADOQuery.Eof do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=''; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for y:=0 to ADOQuery.FieldCount-1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=s+ADOQuery.Fields[y].AsString+#9; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.ProcessMessages; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tsList.Add(s); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ADOQuery.next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Clipboard.AsText:=tsList.Text; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; except &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; result:=false; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; finally &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tsList.Free; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; aSheet.Paste; &nbsp;&nbsp;&nbsp; MessageBox(Application.Handle,'数据导出完毕！','系统提示',MB_ICONINFORMATION or MB_OK); &nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if&nbsp;&nbsp; copy(FileName,length(FileName)-3,4)&lt;&gt;'.xls'&nbsp;&nbsp; then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; FileName:=FileName+'.xls'; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excel.ActiveWorkbook.SaveAs(FileName,&nbsp;&nbsp; xlNormal,&nbsp;&nbsp; '',&nbsp;&nbsp; '',&nbsp;&nbsp; False,&nbsp;&nbsp; False); &nbsp;&nbsp;&nbsp; except &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excel.Quit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; screen.cursor:=crDefault; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; Excel.Visible&nbsp;&nbsp; :=&nbsp;&nbsp; false; //true会自动打开已经保存的excel &nbsp;&nbsp;&nbsp; Excel.Quit; &nbsp;&nbsp;&nbsp; Excel := UnAssigned; &nbsp;&nbsp;&nbsp; end; 调用: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ToExcel('D:\a.xsl',QueryToExcel);//路径可以自定义 &nbsp; ------------------------------------------------------------------------------------------------- ************************************************************************************************* 二; delphi如何导出EXCEL，代码。非第3方控件 首先在Uses处加上ComObj procedure TForm1.Button1Click(Sender: TObject);&nbsp; var&nbsp; h,k:integer;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid: OleVariant;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;s: string; begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid := CreateOLEObject('Excel.Application');&nbsp;&nbsp;&nbsp;&nbsp; except&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Exit;&nbsp;&nbsp;&nbsp;&nbsp; end;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;ADOQuery1.Close;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;ADOQuery1.SQL.Clear;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;ADOQuery1.SQL.Add('select * from jj_department');&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;ADOQuery1.Open;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;k:=ADOQuery1.RecordCount;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.Visible := True;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.WorkBooks.Add;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].range['A1:c1'].Merge(True);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.WorkSheets[1].Cells[1,1].Value :='部门编码表' ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.WorkSheets[1].Cells[2,1].Value := '组别编号';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.WorkSheets[1].Cells[2,2].Value := '公司编号';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.WorkSheets[1].Cells[2,3].Value := '组别名称';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['A1:c1'].Font.Name := '宋体';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['A1:c1'].Font.Size := 9;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].range['A1:c2'].font.bold:=true;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['A2:c2'].Font.Size := 9;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['A2:c2'].HorizontalAlignment := $FFFFEFF4;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range['A2:c2'].VerticalAlignment := $FFFFEFF4;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;h:=3;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;ADOQuery1.First;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;while not ADOQuery1.Eof do&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Excelid.WorkSheets[1].Cells[h,1].Value := Adoquery1.FieldByName('Fdept_id').AsString;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;Excelid.WorkSheets[1].Cells[h,2].Value := Adoquery1.FieldByName('Ffdept_id').AsString;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;Excelid.WorkSheets[1].Cells[h,3].Value := Adoquery1.FieldByName('Fdept_name').AsString;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;Inc(h);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;Adoquery1.Next;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;end;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;s := 'A2:f'+ IntToStr(k+2);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range[s].Font.Name := '宋体';&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range[s].Font.size := 9;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Excelid.Quit;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; except&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);&nbsp;&nbsp;&nbsp;&nbsp; end;&nbsp;&nbsp;&nbsp; MessageBox(GetActiveWindow(), 'EXCEL数据导出成功!', '提示信息', MB_OK +MB_ICONWARNING); end; &nbsp; ----------------------------------------------------------------------------------------------------------------------------------------------- **************************************************************************************************************************************** 三; delphi导出EXCEL uses &nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, &nbsp; Dialogs, ExtCtrls, Mask, ComCtrls, StdCtrls, Buttons, Grids, ValEdit, IdBaseComponent, &nbsp; CheckLst, excel97, ExcelXP, OleServer, ComObj, excel2000, mmsystem, ShellAPI, &nbsp; ADODB, DB, DBGrids, clipbrd; &nbsp;Var &nbsp; FExcel:OleVariant; //excel应用程序 &nbsp; FWorkBook :OleVariant; //工作表 &nbsp; Temsheet:OleVariant; //工作薄 &nbsp; FPicture:OleVariant;//图片 &nbsp; tmpstr:String; &nbsp; range:variant;//范围 &nbsp; i,j,TemInt:integer; &nbsp; TemFileName:String; begin &nbsp; SaveDialog1.Filter:='.xls'; &nbsp; if SaveDialog1.Execute then &nbsp; begin &nbsp;&nbsp;&nbsp; TemFileName:=SaveDialog1.FileName+'.xls'; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Screen.Cursor:=CrHourGlass; &nbsp;&nbsp;&nbsp; TemInt:=0; &nbsp;&nbsp;&nbsp; FExcel:= CreateoleObject('excel.Application'); &nbsp;&nbsp;&nbsp; FWorkBook:=FExcel.WorkBooks.Add(-4167); //新的工作表 &nbsp;&nbsp;&nbsp; Temsheet:=FWorkBook.Worksheets.Add; &nbsp;&nbsp;&nbsp; Temsheet.Name:='利润统计'; &nbsp;&nbsp;&nbsp; Temsheet.Select; &nbsp;&nbsp;&nbsp; Temsheet.Columns[1].ColumnWidth:=4;//设置列宽度 &nbsp;&nbsp;&nbsp; Temsheet.Columns[2].ColumnWidth:=10; &nbsp;&nbsp;&nbsp; Temsheet.Columns[3].ColumnWidth:=16; &nbsp;&nbsp;&nbsp; Temsheet.Columns[4].ColumnWidth:=10; &nbsp;&nbsp;&nbsp; Temsheet.Columns[5].ColumnWidth:=10; &nbsp;&nbsp;&nbsp; Temsheet.Columns[6].ColumnWidth:=10; &nbsp;&nbsp;&nbsp; Temsheet.Columns[7].ColumnWidth:=10; &nbsp;&nbsp;&nbsp; Temsheet.Columns[8].ColumnWidth:=10; &nbsp;&nbsp;&nbsp; Temsheet.Columns[9].ColumnWidth:=20; &nbsp;&nbsp;&nbsp; Temsheet.Columns[10].ColumnWidth:=15; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[1,1],Temsheet.cells[5,2]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; //合并单元格 &nbsp;&nbsp;&nbsp; tmpstr:=ExtractFilePath(ParamStr(0))+'tem.jpg';&nbsp;&nbsp; //添加图片 &nbsp;&nbsp;&nbsp; FPicture:=Temsheet.Pictures.Insert(tmpstr); &nbsp;&nbsp;&nbsp; FPicture.Left:=20; &nbsp;&nbsp;&nbsp; FPicture.Top:=5; &nbsp;&nbsp;&nbsp; FPicture.width:=50; &nbsp;&nbsp;&nbsp; FPicture.height:=50; &nbsp;&nbsp;&nbsp; FPicture:=null; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[2,3],Temsheet.cells[3,4]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Range.Characters.Font.FontStyle :='加粗'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[2,3].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp; Temsheet.Cells[2,3]:=ComSName; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[4,3],Temsheet.cells[4,4]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Temsheet.Cells[4,3].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp; Temsheet.Cells[4,3]:=ComEName; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[2,5],Temsheet.cells[2,6]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Temsheet.Cells[2,5].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp; Temsheet.Cells[2,5]:=ComName; &nbsp;&nbsp;&nbsp; Temsheet.Cells[3,5]:='联系人：'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[4,5]:='电话：'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[4,6]:=ComPhone; &nbsp;&nbsp;&nbsp; Temsheet.Cells[5,5]:='传真：'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[5,6]:=ComFax; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[6,1],Temsheet.cells[6,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[7,1],Temsheet.cells[7,2]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Range.Characters.Font.FontStyle :='加粗'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[7,1]:='入库信息：'; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[7,3],Temsheet.cells[7,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Temsheet.Cells[8,1]:='序号'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[8,1].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp; Temsheet.Cells[8,1].Interior.Color:=clGray;&nbsp;&nbsp;&nbsp;&nbsp; //单元格背景色 &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[8,1],Temsheet.cells[8,1]];//选定表格 &nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp; for i:=0 to DBGrid1.Columns.Count - 1 do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[8,i+2]:=DBGrid1.Columns[i].Title.Caption; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[8,i+2].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[8,i+2].Interior.Color:=clGray;&nbsp;&nbsp;&nbsp;&nbsp; //单元格背景色 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[8,i+2],Temsheet.cells[8,i+2]];//选定表格 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; // &nbsp;&nbsp;&nbsp; j:=0; &nbsp;&nbsp;&nbsp; DBGrid1.DataSource.DataSet.First; &nbsp;&nbsp;&nbsp; while not DBGrid1.DataSource.DataSet.Eof do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[9+j,1].Value:=j+1; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[9+j,1].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[9+j,1],Temsheet.cells[9+j,1]];//选定表格 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for i:=0 to DBGrid1.Columns.Count - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[9+j,i+2].Value:=DBGrid1.Fields[i].AsString; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[9+j,i+2],Temsheet.cells[9+j,i+2]];//选定表格 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DBGrid1.DataSource.DataSet.Next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j:=j+1; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; TemInt:=9+ DBGrid1.DataSource.DataSet.RecordCount; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Range.Characters.Font.FontStyle :='加粗'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1]:='出库信息：'; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,3],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1]:='序号'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1].Interior.Color:=clGray;&nbsp;&nbsp;&nbsp;&nbsp; //单元格背景色 &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,1]];//选定表格 &nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp; for i:=0 to DBGrid2.Columns.Count - 1 do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,i+2]:=DBGrid2.Columns[i].Title.Caption; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,i+2].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,i+2].Interior.Color:=clGray;&nbsp;&nbsp;&nbsp;&nbsp; //单元格背景色 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,i+2],Temsheet.cells[TemInt,i+2]];//选定表格 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; // &nbsp;&nbsp;&nbsp; j:=0; &nbsp;&nbsp;&nbsp; DBGrid2.DataSource.DataSet.First; &nbsp;&nbsp;&nbsp; while not DBGrid2.DataSource.DataSet.Eof do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt+j,1].Value:=j+1; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt+j,1].HorizontalAlignment:=-4108; //字居中 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt+j,1],Temsheet.cells[TemInt+j,1]];//选定表格 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for i:=0 to DBGrid2.Columns.Count - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt+j,i+2].Value:=DBGrid2.Fields[i].AsString; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt+j,i+2],Temsheet.cells[TemInt+j,i+2]];//选定表格 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DBGrid2.DataSource.DataSet.Next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j:=j+1; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+ DBGrid2.DataSource.DataSet.RecordCount; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Range.Characters.Font.FontStyle :='加粗'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1]:='入库总额：'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,3]:=Trim(Edit1.Text); &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,4],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Range.Characters.Font.FontStyle :='加粗'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1]:='出库总额：'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,3]:=Trim(Edit2.Text); &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,4],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; TemInt:=TemInt+1; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,1],Temsheet.cells[TemInt,2]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; Range.Characters.Font.FontStyle :='加粗'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,1]:='总利润：'; &nbsp;&nbsp;&nbsp; Temsheet.Cells[TemInt,3]:=Trim(Edit3.Text); &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[TemInt,4],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.select; &nbsp;&nbsp;&nbsp; range.merge; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; range:=Temsheet.Range[Temsheet.cells[7,1],Temsheet.cells[TemInt,10]];//选定表格 &nbsp;&nbsp;&nbsp; range.borders.linestyle:=1;//华线 &nbsp;&nbsp;&nbsp; Application.ProcessMessages; &nbsp;&nbsp;&nbsp; Screen.Cursor:=CrDefault; &nbsp;&nbsp;&nbsp; FExcel.WorkBooks[1].saveas(TemFileName);//保存文件 &nbsp;&nbsp;&nbsp; FExcel.workbooks[1].close; //关闭工作表 &nbsp;&nbsp;&nbsp; Application.ProcessMessages; &nbsp;&nbsp;&nbsp; MessageBox(Handle,'导出成功','提示',MB_OK); &nbsp;&nbsp;&nbsp; //FExcel.visible:=true; &nbsp;&nbsp;&nbsp; FExcel.quit; //关闭Excel &nbsp;&nbsp;&nbsp; FExcel := unassigned; &nbsp;&nbsp;&nbsp; shellexecute(0,'open',PChar(ExtractFileName(TemFileName)),nil,PChar(ExtractFilePath(TemFileName)),SW_Show); &nbsp; &nbsp; end; end; -------------------------------------------------------------------------------------------------------------------- ******************************************************************************************************************** uses &nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, &nbsp; Dialogs, ExtCtrls, Mask, ComCtrls, StdCtrls, Buttons, Grids, ValEdit, IdBaseComponent, &nbsp; CheckLst, excel97, ExcelXP, OleServer, comobj, excel2000, mmsystem, &nbsp; ADODB, DB, DBGrids, clipbrd; 四; procedure TFIND_FM.Button1Click(Sender: TObject); var &nbsp; i,j : integer; &nbsp; reportname, wpath : string; &nbsp; ExApp1 : TExcelApplication; &nbsp; ExWrbk1 : TExcelWorkbook; &nbsp; ExWrst1 : TExcelWorksheet;&nbsp;&nbsp; begin &nbsp;&nbsp; &nbsp; if Main_FM.ADOQuery_TEMP.IsEmpty then &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp; Showmessage('沒有可導出的資料!'); &nbsp;&nbsp;&nbsp; Exit; &nbsp;&nbsp;&nbsp; end &nbsp; else &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp; Main_FM.SaveDialog1.FileName := 'qcreport'; &nbsp;&nbsp;&nbsp; if&nbsp; Main_FM.savedialog1.Execute then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //savedialog1.FileName := formatdatetime('YYYYMMDDHHMMSS',now())+'md_orderqc_list.xls'; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; reportname :=&nbsp; formatdatetime('YYYYMMDDHHMMSS',now())+ExtractFileName(Main_FM.savedialog1.FileName); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //reportname :=&nbsp; formatdatetime('YYYYMMDDHHMMSS',now())+''; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wpath := ExtractFilePath(Main_FM.savedialog1.FileName); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //showmessage(wpath); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExApp1 := TExcelApplication.Create(application); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrbk1 := TExcelWorkbook.Create(application); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrst1 := TExcelWorksheet.Create(application); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExApp1.Connect; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; except &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Showmessage('電腦沒裝Excel!無法導出!'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Abort; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExApp1.Workbooks.Add(EmptyParam,0); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrbk1.ConnectTo(ExApp1.Workbooks[1]); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrst1.ConnectTo(ExWrbk1.Worksheets[1] as _worksheet); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Main_FM.ADOQuery_TEMP.First; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for j := 0 to Main_FM.ADOQuery_TEMP.FieldCount-1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrst1.Cells.Item[1,j+1] := Main_FM.ADOQuery_TEMP.Fields[j].DisplayName; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for i := 2 to Main_FM.ADOQuery_TEMP.RecordCount+1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for j := 0 to Main_FM.ADOQuery_TEMP.FieldCount-1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrst1.Cells.Item[i,j+1] := Main_FM.ADOQuery_TEMP.Fields[j].Value; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Main_FM.ADOQuery_TEMP.Next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrst1.SaveAs(wpath+reportname); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //ExWrst.SaveAs(formatdatetime('YYYYMMDDHHMMSS',now())+reportname);; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Showmessage('數據已成功導出!'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; except &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Showmessage('導出失敗!'); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; abort; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; finally &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExApp1.Disconnect; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExApp1.Quit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExApp1.Free; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrbk1.Free; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ExWrst1.Free; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; end; end; -------------------------------------------------------------------------------------------------- ************************************************************************************************** delphi导出数据至Excel的三种方法及比较 闲来无事，跑到网上搜集了几种导出DataSet至Excel的几种方法。另外使用GetTickcount函数计算时差，以便比较。（本来使用Timer控件，但是Timer不适合做高精度时间计算） 使用TADOConnect，TADOQuery查询数据。 方法五： &nbsp;&nbsp; 使用TADOQuery + Varaint方法，循环遍历数据集中数据，直接插入到Excel的WookBook单元。这是初学者最易懂和易接受的方法。 在下面代码中没有仔细注意语法（比如没有使用try..finally结构体），如果需要使用，请注意： //使用ADO循环方式保存 procedure TForm1.btn_WhileClick(Sender: TObject); var &nbsp;&nbsp; Eclapp:variant; &nbsp;&nbsp; n:integer; &nbsp;&nbsp; filename: string; &nbsp;&nbsp; t1,t2: Int64; begin &nbsp;&nbsp; Eclapp := CreateOleObject('Excel.Application'); &nbsp;&nbsp; Eclapp.WorkBooks.Add; &nbsp;&nbsp; Eclapp.Visible:= False; &nbsp;&nbsp; filename :='d:\数据1.xls'; &nbsp;&nbsp; lbl2.Caption := '0'; &nbsp;&nbsp; if FileExists(fileName) then &nbsp;&nbsp;&nbsp;&nbsp; DeleteFile(fileName); &nbsp;&nbsp; t1:= GetTickCount; &nbsp;&nbsp; qry1.DisableControls; &nbsp;&nbsp; qry1.First; &nbsp;&nbsp; n:=2; &nbsp;&nbsp; while not qry1.Eof do &nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp; eclapp.cells[n,1] := qry1.Fields[0].AsString; &nbsp;&nbsp;&nbsp;&nbsp; eclapp.cells[n,2] := qry1.Fields[1].AsString; &nbsp;&nbsp;&nbsp;&nbsp; eclapp.cells[n,3] := qry1.Fields[2].AsString; &nbsp;&nbsp;&nbsp;&nbsp; eclapp.cells[n,4] := qry1.Fields[3].AsString; &nbsp;&nbsp;&nbsp;&nbsp; //为了简单，只添加了4个栏位 &nbsp;&nbsp;&nbsp;&nbsp; inc(n); &nbsp;&nbsp;&nbsp;&nbsp; qry1.Next; &nbsp;&nbsp;&nbsp;&nbsp; application.ProcessMessages; &nbsp;&nbsp; end; &nbsp;&nbsp; qry1.EnableControls; &nbsp;&nbsp; t2:= GetTickCount; &nbsp;&nbsp; eclapp.visible := false; &nbsp;&nbsp; eclapp.Workbooks[1].SaveAs(filename); &nbsp;&nbsp; Eclapp.Quit; &nbsp;&nbsp; Eclapp:= Unassigned; &nbsp;&nbsp; lbl2.Caption := IntToStr(t2 - t1); end; --------------------------------------------------------------------------------------------------------- ********************************************************************************************************* 方法六：使用OLE方法导入。 &nbsp;&nbsp; 先讲TDateSet中的数据保存为二维OLEVariant数组中，再保存到Excel Sheet中&nbsp; ///使用OLE方式保存procedure TForm1.btn_OleVariantClick(Sender: TObject); var fileName: string; xlApp, Sheet: OleVariant; rowCount, Colcount, index: Integer; t1,t2: Int64; function RefToCell(RowID, ColID: Integer): string; var &nbsp;&nbsp;&nbsp; ACount, APos: Integer; begin &nbsp;&nbsp;&nbsp; ACount := ColID div 26; &nbsp;&nbsp;&nbsp; APos := ColID mod 26; &nbsp;&nbsp;&nbsp; if APos = 0 then &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ACount := ACount - 1; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; APos := 26; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; if ACount = 0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Result := Chr(Ord('A') + ColID - 1) + IntToStr(RowID); &nbsp;&nbsp;&nbsp; if ACount = 1 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Result := 'A' + Chr(Ord('A') + APos - 1) + IntToStr(RowID); &nbsp;&nbsp;&nbsp; if ACount &gt; 1 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Result := Chr(Ord('A') + ACount - 1) + Chr(Ord('A') + APos - 1) + IntToStr(RowID); end; function getData(ds: TDataSet): OleVariant; var &nbsp;&nbsp;&nbsp; Data: OLEVariant; &nbsp;&nbsp;&nbsp; i,j : Integer; begin &nbsp;&nbsp;&nbsp; rowCount := ds.RecordCount; &nbsp;&nbsp;&nbsp; colCount := ds.FieldCount; &nbsp;&nbsp;&nbsp; Data := VarArrayCreate([1, rowCount + 1, 1, colCount], varVariant); //1，rowCount 表示第一维数组的上下标，1，colCount表示第二维数组的上下标 &nbsp;&nbsp;&nbsp; i := 1; &nbsp;&nbsp;&nbsp; for j := 0 to colCount - 1 do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if not ds.Fields[j].Visible then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; continue; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Data[i,j + 1] := ds.Fields[j].DisplayLabel; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; Inc(i); &nbsp;&nbsp;&nbsp; ds.DisableControls; &nbsp;&nbsp;&nbsp; try &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ds.First; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while not ds.Eof do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for j := 0 to colCount - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Data[i,j + 1] := ds.Fields[j].AsString; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Inc(i); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ds.Next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.ProcessMessages; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; finally &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ds.EnableControls; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; result := Data; end; begin fileName := 'd:\数据.xls'; lbl1.Caption := '0'; t1:= GetTickCount;//开始计时 if FileExists(fileName) then &nbsp;&nbsp;&nbsp; DeleteFile(fileName); xlApp := CreateOleObject('Excel.Application'); try &nbsp;&nbsp;&nbsp; XLApp.Visible := False; &nbsp;&nbsp;&nbsp; XLApp.DisplayAlerts := False; &nbsp;&nbsp;&nbsp; XLApp.Workbooks.Add; &nbsp;&nbsp;&nbsp; // 删除多余的 worksheet &nbsp;&nbsp;&nbsp; for index := XLApp.SheetsInNewWorkbook downto 2 do &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; XLApp.Workbooks[1].Worksheets[index].Delete; &nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; Sheet := XLApp.Workbooks[1].Worksheets[1]; &nbsp;&nbsp;&nbsp; index := 1; &nbsp;&nbsp;&nbsp; if index &lt;&gt; 0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet := XLApp.Workbooks[1].Worksheets.Add; &nbsp;&nbsp;&nbsp; Sheet.Name := qry1.Name; &nbsp;&nbsp;&nbsp; //Sheet.Columns.NumberFormatLocal :=&nbsp;<a href="mailto:'%20rel=" style="color:rgb(61,107,167); text-decoration:none; outline:0px" rel="nofollow">'@'</a>; //设置单元格式为文本 &nbsp;&nbsp;&nbsp; Sheet.Range[RefToCell(1, 1), RefToCell(rowCount + 1, colCount)].Value := getData(qry1); &nbsp;&nbsp;&nbsp; XLApp.Workbooks[1].SaveAs(fileName);&nbsp; finally &nbsp;&nbsp;&nbsp; if not VarIsEmpty(XLApp) then &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; XLApp.Quit; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; XLAPP := Unassigned; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet := Unassigned; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; application.ProcessMessages; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; t2:= GetTickCount; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lbl1.Caption := IntToStr( t2 - t1); &nbsp;&nbsp;&nbsp; end; end; end; ------------------------------------------------------------------------------------------------------- ******************************************************************************************************* 方法七：现在最流行的文件流方法 ..... var Form1: TForm1; arXlsBegin: array[0..5] of Word = ($809, 8, 0, $10, 0, 0); arXlsEnd: array[0..1] of Word = ($0A, 00); arXlsString: array[0..5] of Word = ($204, 0, 0, 0, 0, 0); arXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0); arXlsInteger: array[0..4] of Word = ($27E, 10, 0, 0, 0); arXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17); Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet); implementation {$R *.dfm} //使用文件流 procedure incColRow; //增加行列号 begin &nbsp;&nbsp;&nbsp; if Col = ADataSet.FieldCount - 1 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Inc(Row); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Col :=0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end &nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Inc(Col); end; procedure WriteStringCell(AValue: string);//写字符串数据 var L: Word; begin &nbsp;&nbsp;&nbsp;&nbsp; L := Length(AValue); &nbsp;&nbsp;&nbsp;&nbsp; arXlsString[1] := 8 + L; &nbsp;&nbsp;&nbsp;&nbsp; arXlsString[2] := Row; &nbsp;&nbsp;&nbsp;&nbsp; arXlsString[3] := Col; &nbsp;&nbsp;&nbsp;&nbsp; arXlsString[5] := L; &nbsp;&nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(arXlsString, SizeOf (arXlsString)); &nbsp;&nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(Pointer(AValue)^, L); &nbsp;&nbsp;&nbsp;&nbsp; IncColRow; end; procedure WriteIntegerCell(AValue: integer);//写整数 var &nbsp;&nbsp;&nbsp; V: Integer; begin &nbsp;&nbsp;&nbsp; arXlsInteger[2] := Row; &nbsp;&nbsp;&nbsp; arXlsInteger[3] := Col; &nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(arXlsInteger, SizeOf(arXlsInteger)); &nbsp;&nbsp;&nbsp; V := (AValue shl 2) or 2; &nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(V, 4); &nbsp;&nbsp;&nbsp; IncColRow; end; procedure WriteFloatCell(AValue: double );//写浮点数 begin &nbsp;&nbsp;&nbsp;&nbsp; arXlsNumber[2] := Row; &nbsp;&nbsp;&nbsp;&nbsp; arXlsNumber[3] := Col; &nbsp;&nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(arXlsNumber, SizeOf(arXlsNumber)); &nbsp;&nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(AValue, 8); &nbsp;&nbsp;&nbsp;&nbsp; IncColRow; end; Procedure ExportExcelFile(FileName: string; bWriteTitle: Boolean; aDataSet: TDataSet); var i,j: integer; Col , row: word; ABookMark: TBookMark; aFileStream: TFileStream; //...... //...... begin &nbsp;&nbsp; if FileExists(FileName) then DeleteFile(FileName); //文件存在，先删除 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aFileStream := TFileStream.Create(FileName, fmCreate); &nbsp;&nbsp; Try&nbsp;&nbsp;&nbsp; //写文件头　 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aFileStream.WriteBuffer(arXlsBegin, SizeOf(arXlsBegin));&nbsp;&nbsp; //写列头 　 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Col := 0; Row := 0; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if bWriteTitle then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for i := 0 to aDataSet.FieldCount - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WriteStringCell(aDataSet.Fields[i].FieldName); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //写数据集中的数据 　　 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aDataSet.DisableControls; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //ABookMark := aDataSet.GetBookmark; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aDataSet.First ; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while not aDataSet.Eof do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; for i := 0 to aDataSet.FieldCount - 1 do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case ADataSet.Fields[i].DataType of &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WriteIntegerCell(aDataSet.Fields[i].AsInteger); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ftFloat, ftCurrency, ftBCD: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WriteFloatCell(aDataSet.Fields[i].AsFloat) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WriteStringCell(aDataSet.Fields[i].AsString); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aDataSet.Next; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.ProcessMessages; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //写文件尾 　 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AFileStream.WriteBuffer(arXlsEnd, SizeOf(arXlsEnd)); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //if ADataSet.BookmarkValid(ABookMark) then aDataSet.GotoBookmark(ABookMark); &nbsp;&nbsp; Finally &nbsp;&nbsp;&nbsp;&nbsp; AFileStream.Free; &nbsp;&nbsp;&nbsp;&nbsp; ADataSet.EnableControls; &nbsp;&nbsp; end; end; //调用： procedure TForm1.btn_FileStreamClick(Sender: TObject); var t1,t2: Int64; begin lbl3.Caption := '0'; t1:= GetTickCount; ExportExcelFile('d:\数据2.xls',true,qry1); t2:= GetTickCount; lbl3.Caption:= IntToStr(t2 - t1); end; </td> 
 </tr> 
 </tbody> 
</table>