主题：[求助]基于数据表的统计表能设置模板吗

1、表头的格式是否固定？如果不固定，而且复杂的话，你是无法处理的。

比如 每一行显示的内容有n个（包括表头、副标题、其余一些信息），当列增加的时候，按照什么规则排版？哪些单元格才是【表头】？

如果格式固定、简单，那就好办，根据表格列数，合并单元格即可。

2、如果表头无法处理，那就不要处理，直接拷贝，然后粘贴到中间位置去。

用方法二处理：用户设计好自己的模板，动态列那里，设计一列。

你生成报表之前，把模板拷贝一份，处理模板，根据表格的列，在模板那里动态插入多列（拷贝粘贴）

你先把上面的做好吧。至于之后的把表头居中、表尾居中，你再根据实际情况处理。

模板

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:kk.xls

执行代码

Dim fl As String = ProjectPath & "attachments/kk.xls"
Dim f As String = ProjectPath & "attachments/test.xls"
FileSys.CopyFile(fl, f, True)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(f)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Range("C1:D6").Copy
Dim t As Table = Tables("kk")
Dim idx As Integer = 5
For i As Integer = 1 To t.Cols.count-1 Step 2
    If i < t.Cols.count-3 Then
        ws.Range("C1:D6").Copy
        ws.cells(1,idx).Insert(MSExcel.XlDirection.xlToRight)  '将相应的单元格右移
    End If
    ws.cells(3,idx-2).value = t.Cols(i).caption.split("_")(0)
    ws.cells(5,idx-2).value = "[" & t.Cols(i).name & "]"
    ws.cells(5,idx-1).value = "[" & t.Cols(i+1).name & "]"
    idx += 2
Next

app.visible = True

无法用这种方法实现。

必须换一种思路，把标题、也号等信息，用页眉来做，签名那里，用页脚来做。