首先,这个问题在网上有很多答案,也有很多解决的方法。其次,很多人写过类似的博客 。我的这篇博客,主要是写给那些刚刚接触或接触不久.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,同时,系统也容易出现错误,不过,还是可以尝试一下。
小结:在做这一块的时候,出现了很多问题,尤其是在用嵌套循环时,如果设置不对,常常出现导出时丢失行,数据超出范围,或者不按你想的方式导出,总之 我出现了各种问题,通过查询各种信息,学长学姐的博客,一个个解决掉了,解决后才发现,问题都是非常小的问题,却又是非常不好找的问题,非常小的细节,而且是那些你认为不会出错的地方。做事要细心,做程序更要细心,这篇博客,即使写给自己,也写给大家,一句话:“做程序必须细心在细心。”