【 tulaoshi.com - 编程语言 】
                             
                            在网上的导出为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->