导出到excel7种方法

《导出到excel7种方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、目录导出到Excel的7种方法11.delphi快速导出excel12.非第3方控件33.54.105.循环遍历数据，插入到Excel的WookBook116.使用OLE方法导入127.文件流方法15导出到Excel的7种方法后面三种：使用GetTickcount函数计算时差，使用TADOConnect，TADOQuery查询数据。测试数据city表3179行7列记录【但是第七章种不支持2007格式,不知为什么】第五种：112941148212121114191332211856第六种：174718401716213716701856第七种：2652502342342

2、18234默认导出的地址是D盘根目录1.delphi快速导出exceluses加上ComObj,clipbrd;functionToExcel(sfilename:string;ADOQuery:TADOQuery):boolean;constxlNormal=-4143;vary:integer;tsList:TStringList;s,filename:string;aSheet:Variant;excel:OleVariant;savedialog:tsavedialog;beginResult:=true;tryecel:=CreateOleObject('E

3、xcel.Application');excel.workbooks.add;except//screen.cursor:=crDefault;showmessage('无法调用Excel！');exit;end;savedialog:=tsavedialog.Create(nil);savedialog.FileName:=sfilename;savedialog.Filter:='Excel文件(*.xlsx)

4、*.xlsx';ifsavedialog.ExecutethenbeginifFileExists(savedialog.FileName)thentry

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

6、;end;savedialog.free;iffilename=''thenbeginresult:=true;Excel.Quit;//screen.cursor:=crDefault;exit;end;aSheet:=excel.Worksheets.Item[1];tsList:=TStringList.Create;//tsList.Add('查询结果');//加入标题s:='';//加入字段名fory:=0toadoquery.fieldCount-1dobegins:=s+adoQuery.Fields.Fields[y].FieldName+#9;App

7、lication.ProcessMessages;end;tsList.Add(s);trytryADOQuery.First;WhileNotADOQuery.Eofdobegins:='';fory:=0toADOQuery.FieldCount-1dobegins:=s+ADOQuery.Fields[y].AsString+#9;Application.ProcessMessages;end;tsList.Add(s);ADOQuery.next;end;Clipboard.AsText:=tsList.Text;exceptresult:=false;end

8、;finallytsList.Free;end;aSheet.Paste;MessageBox(Application.Handle,'数据导出完毕！','系统提示',MB_ICONINFORMATIONorMB_OK);tryifcopy(FileName,length(FileName)-3,4)<>'.xlsx'thenFileName:=FileName+'.xlsx';Excel.ActiveWorkbook.SaveAs(FileName,xlNormal,'','',False,False);exceptExcel.Quit;scree