zoukankan      html  css  js  c++  java
  • 将Datagridview中的数据导出至Excel中

        首先添加一个模块ImportToExcel,并添加引用

       

        然后导入命名空间:

    Imports Microsoft.Office.Interop
    Imports System.Data.SqlClient

       

        最后建立一个ImportToExcel的函数,函数代码如下:

        ''' <summary>
        ''' 将Datagridview中的数据导出至Excel中
        ''' </summary>
        ''' <param name="DGV">Datagridview类型</param>
        ''' <returns>布尔值类型,导出是否成功</returns>
        ''' <remarks></remarks>
        Public Function ImportToExcel(ByVal DGV As DataGridView) As Boolean
    
            '创建Excel
            Dim bln As Boolean
            Dim xlApp, xlBook, xlSheet As Object
            xlApp = CreateObject("Excel.Application")
            xlBook = xlApp.Workbooks.Add
            xlSheet = xlBook.Worksheets(1)
    
            '打开Sheet1
            Dim rowindex, colindex As Integer
            rowindex = 1                                                    '行
            colindex = 0                                                    '列
            xlSheet = xlApp.Worksheets("sheet1")                            '打开Sheet1那一页
    
            '将Datagridview的数据添加到DataTable中
            Dim table As New DataTable
            table = DGV.DataSource                                          'Datagridview数据源
            Dim row As DataRow                                              '定义Row为表格的行
            Dim col As DataColumn                                           '定义col为表格的列
    
            '将Datagridview中的每一列写入Excel中
            For Each col In table.Columns
                colindex = colindex + 1
                xlApp.Cells(1, colindex) = col.ColumnName
            Next
    
            '将Datagridview中的每一行写入Excel中
            For Each row In table.Rows
                rowindex = rowindex + 1
                colindex = 0
                For Each col In table.Columns
                    colindex = colindex + 1
                    xlApp.Cells(rowindex, colindex) = row(col.ColumnName)
                Next
            Next
            xlApp.Visible = True
    
            Return bln
    
        End Function

       
        调用方法

        Private Sub btnExportExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportExcel.Click
    
            '不允许导出空数据
            If DataGridView1.DataSource = "" Then
                MsgBox("记录为空,请重新查询!", vbOKOnly + vbInformation, "系统提示")
                txtCardID.Clear()
                txtCardID.Focus()
            Else
                Call ImportToExcel.ImportToExcel(DataGridView1)
            End If
    
        End Sub


       

        实现效果如下:

       

       


     

  • 相关阅读:
    使用 asp.net mvc和 jQuery UI 控件包
    ServiceStack.Redis 使用教程
    HTC T8878刷机手册
    Entity Framework CodeFirst 文章汇集
    2011年Mono发展历程
    日志管理实用程序LogExpert
    使用 NuGet 管理项目库
    WCF 4.0路由服务Routing Service
    精进不休 .NET 4.0 (1) asp.net 4.0 新特性之web.config的改进, ViewStateMode, ClientIDMode, EnablePersistedSelection, 控件的其它一些改进
    精进不休 .NET 4.0 (7) ADO.NET Entity Framework 4.0 新特性
  • 原文地址:https://www.cnblogs.com/snake-hand/p/3141267.html
Copyright © 2011-2022 走看看