如何快速导出数据库为EXCEL文档(另一种方法)

原创 2004年04月23日 13:30:00

在网上的导出为 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

 

如何快速导出数据库为EXCEL

在网上的导出为 EXCEL文档的方法大概是这样的    Dim i As Integer, j As Integer   Dim myexcel As New Excel.Application   ...
  • naive1010
  • naive1010
  • 2004年11月02日 13:01
  • 847

C++ Builder 将数据库数据导出到Excel中总结

首先要引入头文件:#include "ComObj.hpp" 下面是具体操作Excel:   bool __fastcall TFrmDispatchDataExport::DisExportD...
  • songchao_2011
  • songchao_2011
  • 2015年08月06日 18:01
  • 1687

导出数据库查询数据至Word和Excel格式

在开发中经常需要将grid中的数据导出成Excel或Word格式。下面我们来说说如何实现它: 1 先用一个方法,筛选出有效的数据。 因为grid中可能会有隐藏列,而这些列中的数据我们一般都是不需...
  • Denghejing
  • Denghejing
  • 2015年04月29日 17:51
  • 2501

利用php在mysql里导出excel数据表的几种方法

直接说重点,大概有三种方法1、使用PHPExcel这个插件做就不说了,网上很多列子,而且确实很方便,很NB,不过用这个有几个地方要注意,第一,php版本最好5.3以上,第二,服务器需要支持ZipArc...
  • likeni1314
  • likeni1314
  • 2016年12月28日 17:57
  • 2946

VB.NET 快速导出数据到Excel

 一个单元格一个单元格导出数据到Excel速度太慢,在网上找到一下方法,收藏    strsql 为数据库查询语句,sfile 为文件名    Public Sub ExportToExcel(ByV...
  • lwl0606
  • lwl0606
  • 2008年07月29日 14:55
  • 1077

导出ORACLE的数据字典到文本(可直接拷贝到EXCEL)

马上要换工作,手头的系统要进行交接。要写很多交接文档,单单数据字典就要花很多时间,就想到用简单的方法把数据字典导出到WORD里,效率快很多。我一直认为生产力是因为人的惰性才提高的。package my...
  • fangwei77
  • fangwei77
  • 2007年09月09日 20:19
  • 868

PowerDesigner如何导出数据库文档

背景:     前几天组长交给小编一个任务,研究一下PowerDesigner,听完我就蒙了,自己根本就没有接触过,但是自己还是很有勇气的承担下来了,这是一个学习的机会。 是什么: Power Des...
  • u013045868
  • u013045868
  • 2015年12月06日 23:41
  • 2360

从NOTES视图中导出EXCEL表及word文档

代码:%INCLUDE "lsconst.lss"%INCLUDE "lsxbeerr.lss"Sub Initialize   Dim session As New NotesSession Dim...
  • huixyn
  • huixyn
  • 2004年09月07日 17:20
  • 2330

如何將excel內容导出XML

准备: 1.您要导出的XLS文件,本例中为test.xls 2.EXCEL20033.记事本 本实例目标: 将test.xlm中的数据导出成XML格式。 每一个同学的成绩都存放在元素peop...
  • postfxj
  • postfxj
  • 2012年03月01日 07:29
  • 13752

C++ Builder 将数据库数据导出到Excel中总结2

void __fastcall TFrmDispatchDataExport::DisplayExcelReport(String _title, String _strSql) {  int i...
  • songchao_2011
  • songchao_2011
  • 2015年08月28日 17:16
  • 1135
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何快速导出数据库为EXCEL文档(另一种方法)
举报原因:
原因补充:

(最多只允许输入30个字)