VB.net 将dataGridView中的数据导出到excel

今天做机房收费系统做到了报表打印部分了。

在将dataGridView中的数据导出到excel时，到网上找了一些相关的内容，个人感觉不是太好，有的在复杂了。

下面是简单的实现dataGridView数据到excel:

当然首先要添加引用：Microsoft.Office.Interop.Excel

Dim MyExcel As New Microsoft.Office.Interop.Excel.Application() MyExcel.Application.Workbooks.Add() MyExcel.Visible = True '获取标题 Dim Cols As Integer For Cols = 1 To DataGridView1.Columns.Count MyExcel.Cells(1, Cols) = DataGridView1.Columns(Cols - 1).HeaderText Next '往excel表里添加数据() Dim i As Integer For i = 0 To DataGridView1.RowCount - 1 Dim j As Integer For j = 0 To DataGridView1.ColumnCount - 1 If Me.DataGridView1(j, i).Value Is System.DBNull.Value Then MyExcel.Cells(i + 2, j + 1) = "" Else MyExcel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString End If Next j Next i