两种方法DatagridView轻松导入到Excel

标签：datagridview

                众所周知，DatagridView控件来处理表各类数据真的是“简单、方便、疗效快”，因此备受广大民众喜爱。今天我们再来继续探讨一下有关它和Excel的“姊妹情深”。

          几乎没有人不对Excel不了解，但要说熟悉和认识透彻恐怕我们还远远没有做到（这是题外之言），重点还是Excel的强大数据处理能力带给我们的便利，所以把DatagridView数据表变为老少皆宜的Excel表格就显得尤为重要了。

          其实这一转换也很简单，下面就为大家介绍下两种方法，轻松连接“姊妹情”。

          方法一：

          这种方法不需要任何加载和引用，只是纯代码，执行效率比较高。

 Public Function ExportExcel(ByVal gvw As DataGridView) As Boolean '导出到Excel函数
        Try
            If gvw.Rows.Count 
            方法二：需要引用.NET FrameWork程序集下的Office，但代码较少，具体如下：
            1、添加引用（如图）
             


             然后选择
             
            2、代码
            
Imports Microsoft   ‘添加引用
Module mdlText
    Public Function ExportExcel(ByVal gvw As DataGridView) As Boolean '导出到Excel函数
        '建立Excel连接  
        Dim myExcel As New Microsoft.Office.Interop.Excel.Application()
        myExcel.Application.Workbooks.Add(True)
        myExcel.Visible = True

        '定义循环变量,行列变量
        Dim intRow As Integer
        Dim intColumn As Integer
        Dim intTitle As Integer
        '添加表头  
        For intTitle = 0 To gvw.ColumnCount - 1
            myExcel.Cells(1, intTitle + 1) = gvw.Columns(intTitle).HeaderText
        Next intTitle

        '通过循环来添加控件中的数据到表格中  
        For intRow = 0 To gvw.RowCount - 1
            For intColumn = 0 To gvw.ColumnCount - 1
                '由于第一行是表头，所以添加数据时从第二行开始
                myExcel.Cells(intRow + 2, intColumn + 1) = gvw(intColumn, intRow).Value.ToString
            Next intColumn
        Next intRow

        Return True  '添加完毕，返回true  
    End Function 
EndModule
              
             虽然和第一次做收费系统相比简单了很多，但这个功能由于存在着普遍性和良好的通用性，还是需要我们认真对待。如何做到最大化的方便用户使用才是我们的最终目标。
            
两种方法DatagridView轻松导入到Excel,搜素材,soscw.com
两种方法DatagridView轻松导入到Excel
标签：datagridview
原文地址：http://blog.csdn.net/u010191243/article/details/31033407