使用VB.NET将数据从DataGridView导出为Excel表格

Imports Microsoft.Office.Interop.Excel

Public Sub ExportDataGridViewToExcel(ByVal dataGridView As DataGridView)
    ' 创建Excel应用程序实例
    Dim excelApp As New Application()
    excelApp.Visible = True

    ' 添加一个新的工作簿
    Dim workbook As Workbook = excelApp.Workbooks.Add()
    Dim worksheet As Worksheet = workbook.Sheets(1)

    ' 将DataGridView的数据复制到Excel工作表中
    For i As Integer = 0 To dataGridView.ColumnCount - 1
        worksheet.Cells(1, i + 1).Value = dataGridView.Columns(i).HeaderText
    Next

    For i As Integer = 0 To dataGridView.RowCount - 1
        For j As Integer = 0 To dataGridView.ColumnCount - 1
            worksheet.Cells(i + 2, j + 1).Value = dataGridView.Rows(i).Cells(j).Value
        Next
    Next

    ' 自动调整列宽
    worksheet.Columns.AutoFit()

    ' 释放资源
    workbook.Close(SaveChanges:=True)
    excelApp.Quit()

    System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
End Sub