如何快速導出數據庫為EXCEL文檔(另一種方法)

在網上的導出為 EXCEL文檔的方法大概是這樣的

Dim i As Integer, j As Integer
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add  ´添加一個新的BOOK
Set mysheet = mybook.Worksheets.Add  ´添加一個新的SHEET
´    For i = 1 To myres.RecordCount
´        For j = 1 To myres.Fields.Count
´            mysheet.Cells(i, j) = myres.Fields.Item(j - 1).Value
´            If (i * j) Mod 500 = 0 Then
´                DoEvents
´            End If
´        Next j
´    myres.MoveNext
  
´    Next i
    myexcel.Visible = True
    mybook.SaveAs (m_ExcelName)  ´保存文件

這中方法沒什么錯誤,但是如果數據量很大的話,麻煩就來了,出現程序長時間不響應

關鍵是循環,下給出我的代碼

假設定義的記錄名為myres

Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add  ´添加一個新的BOOK
Set mysheet = mybook.Worksheets.Add  ´添加一個新的SHEET
 myexcel.visible=true

mysheet.Cells.CopyFromRecordset myres

mybook.SaveAs (m_ExcelName)  ´保存文件

利用這個代碼可以大大的縮短導出時間,8000多個紀錄用第一種方法大概需要2分多

而用第二種方法只大概要4秒,可以親自試驗一下,上述結果測試平臺為WIN98+EXCEL2000

原文轉自：http://www.anti-gravitydesign.com