VB.NET DataGridView中的数据导入到Excel

￡神魔★判官ぃ 2022-06-16 13:57 539阅读 0赞

**背景介绍**：数据库里"卡信息表"中数据已成功在DataGridView1控件中显示，实现代码请见博客《[VB.NET 中DataGridView显示数据库中的数据][VB.NET _DataGridView]》，瑕疵颇多，望高人指教；这里只介绍DataGridView控件中的数据是如何导入到Excel表中的。

![0_1328335413b4je.gif][]

**操作步骤,主要谈谈需要注意的几点**：

① **DataGridView1**的"**AllowUserToAddRows**"属性要改为False,否则会发生一个小错误，自己试试就了解喽。

② 要使用Excel表，不得不添加引用。

**项目-->添加引用--> .NET-->Microsoft.Office.Interop.Excel**

③实现代码，大体如下：

'为将datagridview表中数据添加到excel表中，需添加引用。
    Imports Microsoft.Office.Interop.Excel

'导出到excel表
        Private Sub btnExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcel.Click
            '要先添加引用才能使用下列语句Microsoft.Office.Interop.Excel.Application()
            Dim myExcel As New Microsoft.Office.Interop.Excel.Application()
            myExcel.Application.Workbooks.Add(True)
            myExcel.Visible = True
    
            '去除datagridview1的编号列
            Dim m As Integer
            For m = 0 To DataGridView1.ColumnCount - 1
                myExcel.Cells(1, m + 1) = Me.DataGridView1.Columns(m).HeaderText
    
            Next m
    
            '往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
    
        End Sub

[VB.NET _DataGridView]: http://blog.csdn.net/mazhaojuan/article/details/7173934
[0_1328335413b4je.gif]: /images/20220616/b73c2e9adb3f4c92b787adb0b2f9b0ac.png