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

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

首先，添加Office Excel的引用。



因为机房收费中，很有几个地方需要导出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，还是从哪儿导出，差不多步骤都一样，都要先添加引用，然后建立连接，添加表，打开表，添加表头，导出数据，完毕。从无从下手，到搞定，慢慢积累。