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即可！