如何将DataGrid中的数据导出到Excel文件中

原创 2007年09月23日 13:57:00
 

HTML Tags and JavaScript tutorial



如何将DataGrid中的数据导出到Excel文件中




引用Excel XX Object library
    Function SendToExcel(ByVal Table As DataTable, ByVal SheetName As String)
        Dim oExcel As New Excel.Application()
        Dim obook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Try
            obook = oExcel.Workbooks.Add '.Open(file)
            oSheet = obook.Worksheets(1)
            oSheet.Name = SheetName
            Dim r As Integer, c As Integer
            Dim rCount As Integer
            Dim cCount As Integer
            rCount = Table.Rows.Count
            cCount = Table.Columns.Count()
            For c = 1 To cCount
                oSheet.Cells(1, c) = Table.Columns(c - 1).Caption '设置列标题
            Next
            c = 0 : r = 0
            For r = 1 To rCount
                For c = 1 To cCount
                    oSheet.Cells(r + 1, c) = CStr(Table.Rows(r - 1)(c - 1).ToString)
                Next
            Next
            oExcel.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        oExcel = Nothing
        obook = Nothing
        oSheet = Nothing
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTygzl As New System.Data.DataTable
        Dim a As String = "员工表" '生成的Excel的表名
        Me.SqlDataAdapter1.Fill(DataSetName, "DataTableName")
        DTygzl = DatasetName.Tables("DataTableName")
        SendToExcel(DTygzl, a)
    End Sub
 


版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

asp.net中将DataGrid数据导出到excel或word文件中

private void Page_Load(object sender, System.EventArgs e) { SqlConnection con=...

在网看到了一个Silverlight导出DataGrid里的数据到Excel或xml文件里

//--> DataGrid 扩展方法 public static void Export(this DataGrid dg) { ExportDataGrid(dg); } public ...

datagrid数据导出到excel文件给客户端下载的几种方法

方法一:导出到csv文件,存放在服务器端任一路径,然后给客户下载 优点: 1、可以进行身份认证后给客户下载,如果放到非web目录就没有对应的url,客户无法随时下载。 2、也是因为生...

如何将SQL Server数据表中的数据按条件批量导出为多个Excel文件

昨天,某位大大提了个要求,需要将某个有数十万行数据的表按类别导出为xls文件,每个类别一个xls。将数据表中的数据导出并保存为xls简单,用SSIS或者查询出来之后另存为都可以。但是,这个表中的分类有...

如何将pdf等非标准数据文件转换成可供EXCEL等软件分析的数据

在数据获取的时候总会碰到很多非标准格式的文档,比如为了web显示良好,很多网站将excel文件转换成了pdf格式,还可能直接使用图片格式,而这类文档中的数据是无法直接用来作数据分析的。举个例子如下: ...

VB.net中DataGrid导出为Excel文件函数

Public Function ExportXLsD(ByVal datagrid As DataGrid) ', ByVal Title As String) 'Dim Mytab...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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