DateGridew导出Excel表+常见错误提示

       在敲机房收费系统的时候，显示数据的时候需要将DateGridew 中的数据导出进Excel表。DateGridew导出Excel表是比较常见的，当然导出Excel表有很多种方法，下面是个人认为比较容易理解的一种方法：

        1.添加引用：项目—＞添加引用—＞Microsoft .Office.Interop.Excel   

         常见错误：Application”在命名空间“Microsoft.Office.Interop.Excel”中不明确。       

         注意：这是由于不同版本之间发生了冲突引起的。例如，我在引用Microsoft Excel15.0 Object Libirary 之后又引用Microsoft.office.Interop.Excel 就会出现上面的错误。

        2.编写代码：

    Private Sub butnExport_Click(sender As Object, e As EventArgs) Handles butnExport.Click        '用到Application，需要不跟其他的Excel表格冲突        Dim MyExcel As New Microsoft.Office.Interop.Excel.Application        '添加工作簿        MyExcel.Application.Workbooks.Add(True)        '表格可见        MyExcel.Visible = True        '添加控件的列数到表格当中        Dim cols As Integer        For cols = 0 To DataGridView.ColumnCount - 1            MyExcel.Cells(1, cols + 1) = Me.DataGridView.Columns(cols).HeaderText '添加列标题        Next cols        '设置行和列        Dim i As Integer        Try            For i = 0 To DataGridView.RowCount - 1     '行的变化范围                Dim j As Integer                For j = 0 To DataGridView.ColumnCount - 1    '列的变化范围                    'DateGridew的数据导出到Excel中                    If Me.DataGridView(j, i).Value Is System.DBNull.Value Then                        '无数据为空表                        MyExcel.Cells(i + 2, j + 1) = ""                    Else                        '将DateGridew的数据添加到Excel表中                        MyExcel.Cells(i + 2, j + 1) = DataGridView(j, i).Value.ToString                    End If                Next j            Next i            MsgBox("数据导出成功!")  '提示        Catch ex As Exception            MsgBox(ex.Message, "导出数据")   '弹出捕获的消息            Exit Sub        End Try    End Sub

         常见错误：“未将对象引用设置到对象的实例”

        注意：在DateGridew中有一个属性AllowUserToAddRows，要设置成False，否则会出现上面的错误，当然如果设置成True，则将For i = 0 To DataGridView.RowCount - 1改成 For i = 0 To DataGridView.RowCount - 2即可！