vb.net datagridview控件导出excel

C/S 专栏收录该内容
8 篇文章 0 订阅

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

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


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

       然后在U层添加模块,模块代码如下:

Imports Microsoft.Office.Interop.Excel
'引用excel表格内容
''' <summary>
''' 此模块用于将datagridview内容导出为excel
''' </summary>
''' <remarks>dgv作为datagridview控件缩写,当做一个参数</remarks>
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
<span style="white-space:pre">	</span>'利用循环,填写表头
        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在面向过程中和面向对象中是没有区别的。

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

       

  • 1
    点赞
  • 16
    评论
  • 5
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值