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

可以通过以下步骤实现：

首先，确保你的项目引用了Microsoft.Office.Interop.Excel库。如果没有引用，可以通过在Visual Studio中右键点击项目，选择“添加”->“引用”，然后在“COM”选项卡中找到并勾选“Microsoft Excel xx.x Object Library”。
创建一个新的Excel应用程序对象，并打开一个新的工作簿：

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

遍历DataGridView中的每一行和每一列，将数据写入Excel工作表：

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

设置Excel单元格的格式（可选）：

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

保存Excel文件并关闭Excel应用程序对象：

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

这个功能可以在很多场景中使用，比如将DataGridView中的数据导出为Excel报表，方便用户进行数据分析和处理。

腾讯云相关产品和产品介绍链接地址：