【VB.NET机房重构】DataGridView导出Excel

        将数据从DataGridView控件中导出为Excel,其实挺简单的。在这里,就贴出来做个积累吧。

        首先,添加Office Excel的引用。

【VB.NET机房重构】DataGridView导出Excel_第1张图片

        因为机房收费中,很有几个地方需要导出Excel,所以就把这个功能提出来为一个公共函数吧。

Imports System.Windows.Forms
Public Class CommonFunction
    Public Function Excel(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
        '添加表头  
        For k = 0 To dgv.ColumnCount - 1
            myExcel.Cells(1, k + 1) = dgv.Columns(k).HeaderText
        Next k
        '通过循环来添加控件中的数据到表格中  
        For i = 0 To dgv.RowCount - 1
            For j = 0 To dgv.ColumnCount - 1
                '第一行是表头,数据从第二行开始添加  
                myExcel.Cells(i + 2, j + 1) = dgv(j, i).Value
            Next j
        Next i
        Return True  '添加完毕,返回true  
    End Function
End Class
      调用的时候两行代码即可

        Dim excel As New CommonFunction
        excel.Excel(DataGridView1)
小结: 

       无论是从DataGridView中导出Excel,还是从哪儿导出,差不多步骤都一样,都要先添加引用,然后建立连接,添加表,打开表,添加表头,导出数据,完毕。从无从下手,到搞定,慢慢积累。


你可能感兴趣的:(【VB.NET机房重构】DataGridView导出Excel)