你生成excel文件之后，再打开excel文件，插入你需要的内容，学习一下vba的控制
Dim t As Table = Tables("室内设计项目")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "设计任务要求_项目名称"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
Dim idx As Integer = 1
For i As Integer = 0 To t.Rows.Count(True) - 1
r = t.Rows(i,True)
If r.IsGroup '如果是分组行
r("项目信息_项目总") = "分组行-" & idx
r("设计任务要求_省份") = t.Rows(i+1,True)("设计任务要求_省份")
r("设计任务要求_城市") = t.Rows(i+1,True)("设计任务要求_城市")
r("设计任务要求_项目名称") = t.Rows(i+1,True)("设计任务要求_项目名称")
idx += 1
End If
Next
Dim flg As New SaveExcelFlags
flg.CellStyle = True
t.SaveExcel("d:\test.xls", "test", flg)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("test")
Dim urg = ws.UsedRange
Dim Rg As MSExcel.Range = Ws.Rows("1:2") '以这个指定的单元格为基准
For i As Integer = urg.Rows.count To 3 Step -1
Dim c = ws.cells(i, 1)
If c.text.startswith("分组行-") Then
c.value = c.text.replace("分组行-", "")
Dim nr = ws.Rows(i+1)
rg.copy
nr.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)'在基准单元格上面插入一行
End If
Next
Rg.Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移
App.Visible = True
加好友 
发短信
Post By：2018/9/18 14:44:00 [只看该作者]
此主题相关图片如下：提问.png
