【机房重构】导出Excel表

    还记得第一次机房的时候要导出Excel表，这可是一遍一遍的写代码，每次出现这个功能都要把哪一打算代码复制过去，多占内存呀，而且还麻烦，重复的代码不断地写。我们学了面向对象之后，接触了封装、继承、多态等特性，这里我们就可以把导出Excel表的过程封装成一个方法，然后需要这个功能的时候只需要调用这个方法就可以了，是不是so easy 呀！

  封装的模块

Imports Microsoft.Office.InteropImports System.Windows.FormsModule ImportExcel    Public Function ImportExcel(ByRef dgvw As DataGridView) As Boolean        '建立Excel连接        Dim myExcel As New Microsoft.Office.Interop.Excel.Application()        myExcel.Application.Workbooks.Add(True)        myExcel.Visible = True        '定义循环变量，行列变量        Dim intRow As Integer        Dim intColumn As Integer        Dim intTitle As Integer        '添加表头        For intTitle = 0 To dgvw.ColumnCount - 1            myExcel.Cells(1, intTitle + 1) = dgvw.Columns(intTitle).HeaderText        Next intTitle        '通过循环来添加控件中的数据到表格中        For intRow = 0 To dgvw.RowCount - 1            For intColumn = 0 To dgvw.ColumnCount - 1                myExcel.Cells(intRow + 2, intColumn + 1) = dgvw(intColumn, intRow).Value.ToString            Next intColumn        Next intRow        Return True    End FunctionEnd Module

  我们运用时调用：

 Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click        Call ImportExcel.ImportExcel(DataGridView1)    End Sub

    不讲究是发现的源动力，我们觉得重复的写一些代码很麻烦，那么我就应该想办法解决这个问题，把我们平时所学到的知识应用到实践中去，不要将理论和实践孤立开，这样不利于我们对知识的理解和掌握。