［作者：不详    转贴自：不详    点击数：数据正在加载...     字体:【大 中小】    更新时间：2007-01-09］

    网上有太多的使用打开隐藏文档的方式将DATASET或者DATATABLE导出到EXCEL.
这样做有几个问题:
1.EXCEL进程很难杀死,甚至出现无响应
2.响应速度慢
3.必须要安装OFFICE才能使用
当然,也有它的优点,那就是格式化能力强,能够做出格式化的EXCEL报表.但是比起常常出错,反映速度,以及特定环境看来,优点也不是很明显
在此贡献给大家一个不同的导出EXCEL方式
优点是:
1.速度快
2.不容易出错
3.无需安装OFFICE
但是也有确定,就是导出的报表象EXCEL一样,没有格式化.
因为此种方法就是将EXCEL当成数据库来创建的.
以下为详细的程序,需要研究的朋友只需要建立一个WIN窗体,将以下代码覆盖原来的全部代码就OK了.不过请自己在BIN目录下放一个数据库,或者将程序里面的连接代码改一下:
Imports System.Data.OleDb
Imports System.Data
Imports Scripting


Public Class Form1
Inherits System.Windows.Forms.Form

Private dataset As New dataset
Private mytable As DataTable
Private dbpath As String = Application.StartupPath & "\YJ_Manage.mdb" '这里请自己改
Private dbconnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath

Private dataadapter As OleDbDataAdapter
Private dataconnection As OleDbConnection
Private dataset As dataset

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If

页次:1/4  首页   上一页   下一页   尾页

附件：
没有附件