要合并表头。
这样不行的:CurrentTable.SaveExcel("C:\data\test.xls","表A")
这样可以的:Dim flg As New SaveExcelFlagsflg.MergedRanges = trueCurrentTable.SaveExcel("C:\data\test.xls","表A",flg)