不将数据网格视图数据导出到excel vb.net

Imports Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub ExportToExcel()
        ' 创建Excel应用程序对象
        Dim excelApp As New Application()

        ' 创建工作簿
        Dim workbook As Workbook = excelApp.Workbooks.Add(Type.Missing)

        ' 创建工作表
        Dim worksheet As Worksheet = workbook.ActiveSheet

        ' 获取数据网格视图中的数据
        Dim dataGridView As DataGridView = DataGridView1
        Dim rowCount As Integer = dataGridView.Rows.Count
        Dim columnCount As Integer = dataGridView.Columns.Count

        ' 将数据导出到Excel
        For i As Integer = 1 To rowCount
            For j As Integer = 1 To columnCount
                worksheet.Cells(i, j) = dataGridView(j - 1, i - 1).Value.ToString()
            Next
        Next

        ' 保存Excel文件
        workbook.SaveAs("路径\文件名.xlsx")

        ' 关闭Excel应用程序
        excelApp.Quit()
    End Sub
End Class