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

上一篇:杂项-Tmod:常见错误提示


下一篇:C#判断文件是否正在被使用