WEB开发网
开发学院WEB开发综合 如何快速导出数据库为EXCEL 阅读

如何快速导出数据库为EXCEL

 2006-02-27 11:51:36 来源:WEB开发网   
核心提示:在网上的导出为Excel文档的方法大概是这样的DimiAsInteger,jAsIntegerDimmyexcelAsNewExcel.applicationDimmybookAsNewExcel.WorkbookDimmysheetAsNewExcel.WorksheetSetmybook=myexcel.Workb
在网上的导出为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->

Tags:如何 快速 导出

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接