从vb.net应用导出时需要合并Excel文件的列数据

Dim excelApp As New Excel.Application
Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Add()

Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Sheets(1)

' 填充表头
For i As Integer = 0 To dataTable.Columns.Count - 1
    excelWorksheet.Cells(1, i + 1) = dataTable.Columns(i).ColumnName
Next

' 填充数据
For i As Integer = 0 To dataTable.Rows.Count - 1
    For j As Integer = 0 To dataTable.Columns.Count - 1
        excelWorksheet.Cells(i + 2, j + 1) = dataTable.Rows(i)(j).ToString()
    Next
Next

Dim startCell As Excel.Range = excelWorksheet.Cells(2, 2)
Dim endCell As Excel.Range = excelWorksheet.Cells(dataTable.Rows.Count + 1, 3)
Dim mergeRange As Excel.Range = excelWorksheet.Range(startCell, endCell)
mergeRange.Merge()

' 设置单元格格式为文本
excelWorksheet.Columns("B:C").NumberFormat = "@"

' 设置合并后的单元格居中对齐
mergeRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
mergeRange.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter

' 设置合并后的单元格边框
mergeRange.Borders.LineStyle = Excel.XlLineStyle.xlContinuous

excelWorkbook.SaveAs("导出文件路径.xlsx")
excelWorkbook.Close()
excelApp.Quit()