datagridview控件--导出Excel

作者: yudandan10
发布时间:2015-06-11 19:31:10

   

   dataGridView 控件可以说很方便的显示了数据,而且对于修改和删除数据也很方便,我在前面的一篇博客中写到了如何去绑定数据到该控件上dataGridView控件--绑定数据方法,今天我将如何将数据导出到excel 中以及在导出时所遇到的问题总结了一下,特此分享  

 

  1. 如何导出Excel 

   由于我在做机房收费系统个人版,因此在查询了充值记录,退卡记录,上下机记录等都需要将这些数据导出来

   在要导出这些数据前呢,首先要先引用我们需要的程序集,以我所用的VS2012为例子   ,我需要添加引用  并选择下图中所指示的程序集 


 

只有在添加了这个引用后才能进行下面的操作  ,添加引用后,在我们要实现的代码中也需要将引用写出来 

Imports Microsoft.Office.Interop.Excel  


然后在进行相应的代码编辑,将数据添加到表格中,我个人的代码如下,是以dataGridview 控件为参数进行传递,调用来实现导出Excel

Public Function drivExcel(ByVal dgv As DataGridView) As Boolean        '建立Excel连接         Dim myExcel As NewMicrosoft.Office.Interop.Excel.Application()        myExcel.Application.Workbooks.Add(True)         myExcel.Visible =True        '定义变量         Dim i, j, k AsInteger         '添加表头         For k = 0 Todgv.ColumnCount - 1             myExcel.Cells(1,k + 1) = dgv.Columns(k).HeaderText         Next k         '通过循环来添加控件中的数据到表格中         For i = 0 Todgv.RowCount - 1             For j = 0 Todgv.ColumnCount - 1                '由于我的第一行是表头,所以添加数据时就是从第二行开始添加                myExcel.Cells(i + 2, j + 1) = dgv(j, i).Value.ToString             Next j         Next i        Return True  '添加完毕,返回true     End Function


通过这段简单的代码,在我们需要利用这个导出Excel 的功能时,直接调用就可以完成操作了。


但是在完成操作后,数据已经全部导出到了表格中,却报错 未将对象引用设置添到对象的实例,对此问题请见下一篇博客

标签: Excel
来源:http://blog.csdn.net/yudandan10/article/details/9730441

推荐: