vb中把datagrid数据导出为excel表格

以下是将DataGridView中的数据导出为Excel表格的示例代码：
Private Sub ExportToExcel(ByVal dgv As DataGridView)
Dim excelApp As New Excel.Application
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add()
Dim excelSheet As Excel.Worksheet = excelBook.Sheets("Sheet1")

' 将DataGridView中的数据逐行逐列地写入Excel表格中
For i As Integer = 0 To dgv.RowCount - 1
For j As Integer = 0 To dgv.ColumnCount - 1
excelSheet.Cells(i + 1, j + 1) = dgv(j, i).Value.ToString()
Next
Next

' 弹出保存对话框，将Excel表格保存到指定文件路径
Dim saveDialog As New SaveFileDialog()
saveDialog.Filter = "Excel Files|*.xlsx|All Files|*.*"
saveDialog.FileName = "DataExport"
If saveDialog.ShowDialog() = DialogResult.OK Then
excelBook.SaveAs(saveDialog.FileName)
MessageBox.Show("导出成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

' 关闭Excel应用程序
excelApp.Quit()
End Sub
登录后复制
使用方法：

在需要导出数据的事件中，调用ExportToExcel方法，并将DataGridView作为参数传入。

Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
ExportToExcel(dgvData)
End Sub
登录后复制

点击导出按钮后，会弹出保存对话框，选择保存路径和文件名，即可将DataGridView中的数据导出为Excel表格。