机房重构—导出Excel

       DataGridView导出Excel和VB机房里差不多，很基础的东西，可以通过纯代码实现，也可以通过添加服务引用来实现，这里就介绍下如何通过添加引用来实现导出Excel，毕竟简单直接~

       

     先在U层程序集里添加Microsoft.Office.Interop.Excel引用，然后就可以在U层中填写以下代码了：

        '建立excel连接
        Dim myExcel As New 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 DataGridView1.ColumnCount - 1
            myExcel.Cells(1, intTitle + 1) = DataGridView1.Columns(intTitle).HeaderText
        Next intTitle

        '通过循环来添加控件中的数据到表格中
        For intRow = 0 To DataGridView1.Rows.Count - 1
            For intColumn = 0 To DataGridView1.ColumnCount - 1
                '由于第一行是表头，所以添加数据时从第二行开始
                If Me.DataGridView1(intColumn, intRow).Value Is System.DBNull.Value Then
                    myExcel.Cells(intRow + 2, intColumn + 1) = ""
                Else
                    myExcel.Cells(intRow + 2, intColumn + 1) = DataGridView1(intColumn, intRow).Value
                End If
            Next intColumn
        Next intRow

        慢慢积累，点滴进步，开学了，加油吧~