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

来源：互联网发布：nginx 第三方mp4模块编辑：程序博客网时间：2024/05/07 09:36

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

在将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