使用保存对话框在vb net中将datagridview数据导出到excel

Imports Microsoft.Office.Interop.Excel

Dim saveDialog As New SaveFileDialog()
saveDialog.FileName = "导出数据"
saveDialog.DefaultExt = ".xlsx"
saveDialog.Filter = "Excel文件|*.xlsx"

If saveDialog.ShowDialog() = DialogResult.OK Then
    ' 创建Excel应用程序对象
    Dim excelApp As New Application()
    ' 创建工作簿
    Dim workbook As Workbook = excelApp.Workbooks.Add()
    ' 创建工作表
    Dim worksheet As Worksheet = workbook.Sheets(1)

    ' 导出DataGridView的列名
    For i As Integer = 0 To dataGridView.Columns.Count - 1
        worksheet.Cells(1, i + 1) = dataGridView.Columns(i).HeaderText
    Next

    ' 导出DataGridView的数据
    For i As Integer = 0 To dataGridView.Rows.Count - 1
        For j As Integer = 0 To dataGridView.Columns.Count - 1
            worksheet.Cells(i + 2, j + 1) = dataGridView.Rows(i).Cells(j).Value.ToString()
        Next
    Next

    ' 保存工作簿
    workbook.SaveAs(saveDialog.FileName)
    ' 关闭Excel应用程序
    excelApp.Quit()

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