.Net中DataGridview数据如何导出到excel表
首先,这个问题在网上有很多答案,也有很多解决的方法。其次,很多人写过类似的博客 。我的这篇博客,主要是写给那些刚刚接触或接触不久.NET并使用其做程序的人,更是写个自己,记录一下方法,方便以后使用。
在窗体中添加一个DataGridView控件,DatagridView获得数据: DataGridView1.DataSource = crList(泛型)或DataGridView1.DataSource=DataSet.Table(0)。{注意:通过查询数据库,将查询到的数据放入crList或Dataset中,然后赋值给DataGridView)
若想导出数据到Excel表,需要添加引用(项目-添加引用-Microsoft.Office.Interop.Excel).
剩下的就是代码了。下面是我的代码,仅供参考。(把导出Excel表做成了一个类,这样整个程序都可以直接调用这个类,实现导出数据到Excel表)
<span style="font-size:18px;"> '打开Excel的应用程序 Dim ExcelADD As New Excel.Application() '添加一个工作本 Dim ExcelWordBook As Excel.Workbook = <span style="font-size:18px;">ExcelADD</span>.Workbooks.Add() '添加一个表 Dim ExcelWorkSheet As Excel.Worksheet = <span style="font-size:18px;">ExcelWordBook</span>.Sheets("sheet1") '显示Excel <span style="font-size:18px;">ExcelADD</span>.Visible = True '用于将DataGridView中的表赋值到Excel中的表中 Dim i As Integer Dim j As Integer '将DataGridView中的字段名赋值给Excel表中的第一行 Dim Cols As Integer For Cols = 1 To x.Columns.Count xlWorkSheet.Cells(1, Cols) = x.Columns(Cols - 1).HeaderText Next '将DataGridView表格中的内容导入到Excel表中 For i = 0 To x.RowCount - 1 'DataGrideView中的表头行不作为行数来计算 For j = 0 To x.ColumnCount - 1 'Excel的第一行是标题,所以应从第二行开始,i+2 注意DataGridView的坐标是先列后行 xlWorkSheet.Cells(i + 2, j + 1) = x(j, i).Value.ToString() Next Next </span>
注意:DataGridView的属性里有一个AllowUsersToAddRows属性,要设置成False,否则For i = 0 To x.RowCount - 1要改写成For i = 0 To x.RowCount - 2,同时,系统也容易出现错误,不过,还是可以尝试一下。
小结:在做这一块的时候,出现了很多问题,尤其是在用嵌套循环时,如果设置不对,常常出现导出时丢失行,数据超出范围,或者不按你想的方式导出,总之 我出现了各种问题,通过查询各种信息,学长学姐的博客,一个个解决掉了,解决后才发现,问题都是非常小的问题,却又是非常不好找的问题,非常小的细节,而且是那些你认为不会出错的地方。做事要细心,做程序更要细心,这篇博客,即使写给自己,也写给大家,一句话:“做程序必须细心在细心。”
版权声明:本文为博主原创文章,未经博主允许不得转载。