通用方法:用建立Excel对象的方法来导出数据
来源:互联网 发布:怎么清空手机所有数据 编辑:程序博客网 时间:2024/04/25 08:39
下面介绍一个用VB如何快速导出数据库为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
在网上的导出为 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 导出方法
- 基于jxl的导出Excel通用方法
- DataGrid 导出Excel通用方法
- 通用导出到EXCEL方法
- java导出Excel通用方法
- jxl导出Excel通用方法
- java导出Excel通用方法
- java导出Excel通用方法
- java导出Excel通用方法
- java导出Excel通用方法
- java导出Excel通用方法
- java导出Excel通用方法
- NPOI导出EXCEl通用方法
- java导出excel通用方法
- 用poi插件完成导出Excel导出(通用方法)
- 一个通用的DataGridView导出Excel扩展方法(支持列数据格式化)
- ASP导出Excel数据最簡單的方法
- 关于ASP,ASP.NET,VB.NET里的MD5加密函数
- 从工作流状态机实践中总结状态模式使用心得(转载)
- 网络安全技术介绍(华为)
- C# ListView中点击表头ColumnClick实现对相应列的排序
- recv和send函数祥解
- 通用方法:用建立Excel对象的方法来导出数据
- ab网站压力测试命令的参数、输出结果的中文注解
- c#运算符
- fgfdgf
- Ajax资源
- 实时管理Linux内核——使用 /proc 文件系统来控制系统
- 在CentOS5上安装oracle10g
- 关于Web扩展性问题请向Flickr的Cal Henderson提问
- GOOGLE地球浏览器分析(七):开发人员讲述的Google Earth真正工作原理