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

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

        首先，添加Office Excel的引用。

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

Imports System.Windows.FormsPublic 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 FunctionEnd Class

      调用的时候两行代码即可

        Dim excel As New CommonFunction        excel.Excel(DataGridView1)

小结： 

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