vb.net datagridview控件导出excel

标签：vb.net   excel   

          导出数据的时候，经常需要将软件中的表格导出为excel，学习vb的时候用到了这个功能，当时用的是面向过程的编程方法，哪里需要了，就在哪个窗体写一遍代码。这次，我们使用面向对象的思维再次实现这个功能。对比一下，两个方法有什么区别。

        这里使用vb.net作为载体，和面向过程一样，第一步还是要添加引用。为了增加复用性，需要把这个功能做成一个模块，因为是导出数据，所以，把它放到U层，需要在U层添加引用。如图：

       将图中画红框的选中就可以了。

       然后在U层添加模块，模块代码如下：

Imports Microsoft.Office.Interop.Excel
'引用excel表格内容
''' 

''' 此模块用于将datagridview内容导出为excel
''' 
''' dgv作为datagridview控件缩写，当做一个参数
Module ExportExcel
    Public Function ExportExcel(ByVal dgv As DataGridView) As Boolean

        '实例化一个excel,创建一个工作簿，工作簿可见
        Dim myExcel As New Microsoft.Office.Interop.Excel.Application
        myExcel.Application.Workbooks.Add(True)
        myExcel.Visible = True
        '导出表头
        Dim i, j, k As Integer

	'利用循环，填写表头
        For k = 0 To dgv.ColumnCount - 1
            myExcel.Cells(1, k + 1) = dgv.Columns(k).HeaderText
        Next
        '利用循环嵌套，将datagridview内容放到导出为excel表格
        '这里有两个循环i表示行循环，j为列循环，excel先从行开始循环，excel需要从列开始循环
        For i = 0 To dgv.Rows.Count - 1
            For j = 0 To dgv.ColumnCount - 1
                myExcel.Cells(i + 2, j + 1) = dgv(j, i).Value.ToString
            Next
        Next
        Return True
    End Function
End Module

         这里唯一需要注意的地方是嵌套循环，i循环作为行循环，j循环作为列循环，excel导入数据是从行开始循环的，但是datagridview导出数据却是先从列开始循环的。刚开始不明白，把行和列写错了，运行的时候一直报错。

       模块写完之后，只要用到这个功能，只需要调用这个模块即可。

       从功能来说，面向过程和面向对象实现的过程是一样的，第一步，添加引用；第二步，创建excel工作簿；第三步，通过循环，将datagridview数据导出excel。从复用性来说，都可以把代码做成模块然后进行调用。通过这些对比，发现，导出excel在面向过程中和面向对象中是没有区别的。

        目前正在逐步摸索面向对象的奥妙，如有错误，敬请指正。

       

vb.net datagridview控件导出excel,搜素材,soscw.com

vb.net datagridview控件导出excel

标签：vb.net   excel   

原文地址：http://blog.csdn.net/u010942465/article/details/38470493