如何快速导出数据库为EXCEL

2019-11-18 17:39:56

字体：大中小

来源：转载

供稿：网友

在网上的导出为Excel文档的方法大概是这样的　

　　DimiAsInteger,jAsInteger
　　DimmyexcelAsNewExcel.application
　　DimmybookAsNewExcel.Workbook
　　DimmysheetAsNewExcel.Worksheet
　　Setmybook=myexcel.Workbooks.Add'添加一个新的BOOK
　　Setmysheet=mybook.Worksheets.Add'添加一个新的SHEET
　　'Fori=1Tomyres.RecordCount
　　'Forj=1Tomyres.Fields.Count
　　'mysheet.Cells(i,j)=myres.Fields.Item(j-1).Value
　　'If(i*j)Mod500=0Then
　　'DoEvents
　　'EndIf
　　'Nextj
　　'myres.MoveNext
　　'Nexti
　　myexcel.Visible=True
　　mybook.SaveAs(m_ExcelName)'保存文件

　　这中方法没什么错误,但是如果数据量很大的话,麻烦就来了,出现程序长时间不响应　

　　关键是循环,下给出我的代码　　

　　假设定义的记录名为myres　　

　　DimmyexcelAsNewExcel.Application
　　DimmybookAsNewExcel.Workbook
　　DimmysheetAsNewExcel.Worksheet
　　Setmybook=myexcel.Workbooks.Add'添加一个新的BOOK
　　Setmysheet=mybook.Worksheets.Add'添加一个新的SHEET
　　myexcel.visible=true
　　mysheet.Cells.CopyFromRecordsetmyres
　　mybook.SaveAs(m_ExcelName)'保存文件　

　　利用这个代码可以大大的缩短导出时间,8000多个纪录用第一种方法大概需要2分多　　

　　而用第二种方法只大概要4秒,可以亲自试验一下,上述结果测试平台为WIN98 EXCEL2000->

上一篇：用API函数定义热键又一法

下一篇：FileSystemObject读写文件