在網上的導出為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->
