VB将datagridview内容导出到excel

可以使用以下代码将 DataGridView 的内容导出到 Excel 中：

Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
    ' 创建 Excel 应用程序对象
    Dim xlApp As New Excel.Application
    ' 创建 Excel 工作簿对象
    Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add
    ' 创建 Excel 工作表对象
    Dim xlSheet As Excel.Worksheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

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

    ' 保存 Excel 文件并关闭
    xlBook.SaveAs("D:\data.xlsx")
    xlBook.Close()
    xlApp.Quit()

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

其中，`dgv` 为 DataGridView 控件的实例名，`"D:\data.xlsx"` 为保存的 Excel 文件路径。