vb.net datagridview实现数据导出Excel

概述    datagridview这一块的 *** 作，对于我来说有些困难，先是从SQL server查询数据，在datagridview显示，再到从datagridview删除字段，最后是现在的将datagridview的数据导出到Excel，这一个过程都显得有些困难，遇到困难也比较容易拖了又拖，但困难不解决，它还是在那里。现在就说说如何将datagridview的数据导出Excel。    将datag

datagrIDvIEw这一块的 *** 作，对于我来说有些困难，先是从sql server查询数据，在datagrIDvIEw显示，再到从datagrIDvIEw删除字段，最后是现在的将datagrIDvIEw的数据导出到Excel，这一个过程都显得有些困难，遇到困难也比较容易拖了又拖，但困难不解决，它还是在那里。现在就说说如何将datagrIDvIEw的数据导出Excel。

将datagrIDvIEw的数据导出Excel，也就是显示层的 *** 作，没有涉及业务逻辑层和数据访问层，也算是比较容易的。在vb.net中实现这个，对于我来说，还算是挺陌生的。但是做完之后，觉得它和vb里的导出Excel的那一块是相近的。

一、添加引用

首先是添加引用，当我打开vb.net里引用的时候，觉得好熟悉，回想起敲vb版机房的时候，我们也添加了类似的引用，看下面的两幅图有没有觉两幅图其实也没有多大的区别。在引用里选择Microsoft Excel 14.0 object library。

添加引用还需要做的就是，在代码窗口添加引用对象的代码，如下

<span >    imports Excel = Microsoft.Office.Interop.Excel</span>

二、修改datagrIDvIEw的属性

敲过这一块的同学，都知道，如果没有把datagrIDvIEw的AllowUserToAddRows的属性改为false的话，代码运行的时候，就会出错。datagrIDvIEw的AllowUserToAddRows属性是保证datagrIDvIEw默认显示列头，而不是任意行。

三、代码部分

<span > Private Sub button2_Click(sender As Object,e As EventArgs) Handles button2.Click</span>

<span ><span >	</span>Microsoft.Office.Interop.Excel.Application() '添加引用才可以使用         Dim myExcel As New Excel.Application()        myExcel.Application.Workbooks.Add(True)        myExcel.Visible = True          Dim n As Integer        For n = 0 To datagrIDvIEw1.ColumnCount - 1            myExcel.Cells(1,n+ 1) = Me.datagrIDvIEw1.Columns(n).headerText        Next n        '在Excel表里显示数据        Dim i As Integer        For i = 0 To dgvMoney.RowCount - 1            Dim j As Integer            For j = 0 To datagrIDvIEw1.ColumnCount - 1                If Me.datagrIDvIEw1(j,i).Value Is System.dbnull.Value Then                    MyExcel.Cells(i + 2,j + 1) = ""                Else                    MyExcel.Cells(i + 2,j + 1) = datagrIDvIEw1(j,i).Value.ToString                End If            Next j        Next i    End Sub</span>

总结

以上是内存溢出为你收集整理的vb.net datagridview实现数据导出Excel全部内容，希望文章能够帮你解决vb.net datagridview实现数据导出Excel所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。