机房重构——导出为Excel

前言：

在机房重构的过程中，导出为Excel是一个比较固定的模式，既简单有有自己的特点，但是完全让自己写还真的有点迷惑，总结总结让以后的学习更加方便。

添加引用：

导出为Excel：

 Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click        Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()        '添加表        MyExcel.Application.Workbooks.Add()        '打开表        MyExcel.Visible = True        Try            '获取datagridview的标题行赋给excel，excel标题行第一列标识为1，datagridview则为0，所以为cols-1            Dim Cols As Integer            For Cols = 1 To myDGV.Columns.Count                MyExcel.Cells(1, Cols) = myDGV.Columns(Cols - 1).HeaderText            Next            '往excel表中添加数据            Dim i As Integer            'datagridview的行与列计算时均为0至*.*-1            For i = 0 To myDGV.RowCount - 1                Dim j As Integer                For j = 0 To myDGV.ColumnCount - 1                    If Me.myDGV(j, i).Value Is System.DBNull.Value Then                        'excel的第一行是标题，所以应该从第二行开始，即i+2注意datagridview的坐标是先列后行                        MyExcel.Cells(i + 2, j + 1) = ""                    Else                        MyExcel.Cells(i + 2, j + 1) = myDGV(j, i).Value.ToString                    End If                Next j            Next i            MsgBox("导出数据成功！", 0, "提示")        Catch ex As Exception            MsgBox("没有记录！", 0, "提示")        End Try    End Sub

总结：

DataGridView控件通常和导出为Excel结合使用，二者通过显示和导出为我们的学习和工作带来了很大的方便。