如何快速導出數據庫為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讀寫文件