首页 相关文章 如何快速导出数据库为EXCEL

如何快速导出数据库为EXCEL

在网上的导出为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=T...[ 查看全文 ]

2016-02-19 标签:

如何快速导出数据库为EXCEL的相关文章

手机页面
收藏网站 回到头部