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

Dim excelApp As New Excel.Application
Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Add()
Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Sheets(1)

For i As Integer = 0 To dataGridView1.Rows.Count - 1
    For j As Integer = 0 To dataGridView1.Columns.Count - 1
        excelWorksheet.Cells(i + 1, j + 1) = dataGridView1.Rows(i).Cells(j).Value.ToString()
    Next
Next

excelWorksheet.Cells.NumberFormat = "0.00" ' 设置为两位小数
excelWorksheet.Cells.Font.Bold = True ' 设置为粗体

excelWorkbook.SaveAs("路径\文件名.xlsx")
excelWorkbook.Close()
excelApp.Quit()

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Dim excelApp As New Excel.Application
        Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Add()
        Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Sheets(1)

        For i As Integer = 0 To dataGridView1.Rows.Count - 1
            For j As Integer = 0 To dataGridView1.Columns.Count - 1
                excelWorksheet.Cells(i + 1, j + 1) = dataGridView1.Rows(i).Cells(j).Value.ToString()
            Next
        Next

        excelWorksheet.Cells.NumberFormat = "0.00"
        excelWorksheet.Cells.Font.Bold = True

        excelWorkbook.SaveAs("路径\文件名.xlsx")
        excelWorkbook.Close()
        excelApp.Quit()

        MessageBox.Show("导出成功！")
    End Sub
End Class