如何快速导出数据库为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。
更多信息请关注考试大计算机等级站。
0条评论