怎么使用vb.net将datagridview中数据导出

你可以使用以下代码将 DataGridView 中的数据导出为 Excel 文件：

Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
    ' 创建 Excel 应用程序对象
    Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
    ' 创建一个新的工作簿
    Dim excelWorkbook As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add()
    ' 创建一个新的工作表
    Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)

    ' 将 DataGridView 中的数据复制到工作表中
    For i As Integer = 0 To dgv.Rows.Count - 1
        For j As Integer = 0 To dgv.Columns.Count - 1
            excelWorksheet.Cells(i + 1, j + 1) = dgv(j, i).Value.ToString()
        Next
    Next

    ' 设置 Excel 单元格格式
    excelWorksheet.Range("A1").EntireRow.Font.Bold = True
    excelWorksheet.Range("A1").EntireRow.AutoFit()

    ' 保存 Excel 文件
    Dim saveFileDialog As New SaveFileDialog()
    saveFileDialog.Filter = "Excel 文件|*.xlsx"
    saveFileDialog.Title = "导出 Excel 文件"
    If saveFileDialog.ShowDialog() = DialogResult.OK Then
        excelWorkbook.SaveAs(saveFileDialog.FileName)
    End If

    ' 关闭 Excel 应用程序对象
    excelWorkbook.Close()
    excelApp.Quit()
End Sub

这段代码将 DataGridView 中的数据复制到一个新的 Excel 工作表中，并将其保存为一个 .xlsx 文件。你需要将 `dgv` 替换为你的 DataGridView 控件的名称。