如何快速导出数据库为EXCEL

网上导出Excel文档的方法大概如下

Dim i As Integer，j As Integer
Dim my Excel As New Excel。应用程序
将mybook显示为新的Excel。工作簿
将mysheet显示为新的Excel。worksheet
Set book = my excel . workbooks . add ' add a new book
Set my sheet = my book . worksheets . add ' add a new sheet
' For I = 1 tomyres . record count
' For j = 1 To myres。field . Count
' my sheet。Cells(i，j) = myres。字段。项目(j - 1)。value
' If(I * j)Mod 500 = 0 Then
' do events
' End If
' Next j
myres . movenext
' Next I
my excel . visible = true
my book . save as(m _ excelname)'保存文件。

这种方法没有错，但是如果数据量很大，麻烦就来了，程序长时间不响应2。

关键是循环。下面给我代码。

假定记录名为myres。

将myexcel调成新的excel。应用程序
将mybook显示为新的Excel。工作簿
将mysheet显示为新的Excel。worksheet
Set book = my excel . workbooks . Add ' Add a new book
Set my sheet = mybook . worksheets . Add ' Add a new sheet
my excel . visible = true
my sheet cells . copy from recordset myres
mybook . save as(m _ excelname)'保存文件。

使用此代码可以大大缩短导出时间，8000多条记录用第一种方法需要2分多钟。

第二种方法只需要4秒左右，可以自己试试。以上结果的测试平台为WIN98+EXCEL2000。

更多信息请关注考试大计算机等级站。