vb.net datagridview导出excel表格 含单元格合并

要将 DataGridView 导出为 Excel 表格，可以使用 Microsoft.Interop.Excel 库来创建 Excel 应用程序、工作簿和工作表，并将 DataGridView 数据写入工作表。要考虑单元格合并，可以使用 Range 对象来操作单元格。

下面是示例代码：

Imports Microsoft.Office.Interop

Private Sub ExportToExcel(ByVal dgv As DataGridView)
    ' 创建 Excel 应用程序
    Dim excelApp As New Excel.Application()
    ' 创建工作簿
    Dim workbook As Excel.Workbook = excelApp.Workbooks.Add()
    ' 获取第一个工作表
    Dim worksheet As Excel.Worksheet = CType(workbook.Sheets(1), Excel.Worksheet)

    ' 写入列标题
    For i As Integer = 0 To dgv.Columns.Count - 1
        worksheet.Cells(1, i + 1) = dgv.Columns(i).HeaderText
    Next

    ' 写入单元格数据
    For i As Integer = 0 To dgv.Rows.Count - 1
        For j As Integer = 0 To dgv.Columns.Count - 1
            Dim cell As Excel.Range = worksheet.Cells(i + 2, j + 1)
            cell.Value = dgv.Rows(i).Cells(j).Value

            ' 如果当前单元格与左边的单元格内容相同，则合并单元格
            If j > 0 AndAlso dgv.Rows(i).Cells(j).Value = dgv.Rows(i).Cells(j - 1).Value Then
                Dim prevCell As Excel.Range = worksheet.Cells(i + 2, j)
                Dim range As Excel.Range = worksheet.Range(prevCell, cell)
                range.Merge()
            End If
        Next
    Next

    ' 保存 Excel 文件
    Dim saveFileDialog As New SaveFileDialog()
    saveFileDialog.Filter = "Excel 文件|*.xlsx"
    saveFileDialog.Title = "保存为 Excel 文件"
    If saveFileDialog.ShowDialog() = DialogResult.OK Then
        workbook.SaveAs(saveFileDialog.FileName)
        MessageBox.Show("Excel 文件已保存。")
    End If

    ' 关闭 Excel 应用程序
    excelApp.Quit()
End Sub

在上面的代码中，我们首先创建了一个 Excel 应用程序，然后创建了一个工作簿和一个工作表。我们使用循环写入 DataGridView 的列标题和单元格数据，如果当前单元格与左边的单元格内容相同，则使用 Range.Merge 方法合并单元格。最后，我们使用 SaveFileDialog 对话框来让用户选择文件保存位置，并将工作簿保存为 Excel 文件。

请注意，上面的代码需要引用 Microsoft.Interop.Excel 库。可以通过 NuGet 包管理器安装 Microsoft.Office.Interop.Excel 包。