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

使用方法：

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

Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
    ExportToExcel(dgvData)
End Sub

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