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

方法一：直接saveexcel，然后打开xls，插入行加上表头；

方法 二：用vba，修改模板，把动态部分的列，拷贝插入到多列去。

建议还是用方法一。

你让用户自己做一个模板，只需要做表头。然后把表内容saveexcel导出，然后你把表内容拷贝到模板那里去。

或者是，你直接在模板那里，导出表内容 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103833&skin=0

方法一：模板只需要定义最上面的表信息那些东西。下面的内容你用代码生成。

如果用方法二：那就动态插入列，设置一列动态列的样式，然后vba打开，拷贝，你表格由多少列，就拷贝多少次。

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

无法用这种方法实现。

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

如果确实要做，用headerrow处理吧，通过代码计算。

第几页：假如你模板变成了3页；要打印35行数据；每页10行数据。

第一次进入headerrow：vars("页1") = 1; vars("页2") = 1 + 4; vars("页3") = 1+4*2

第n次进入headerrow：vars("页1") += 1; vars("页2") = vars("页1") + math.ceiling(35 / 10); vars("页3") = vars("页1") + math.ceiling(35 / 10)*2

BuildPageHeader 事件

http://www.foxtable.com/webhelp/scr/1956.htm

横向，如果有10页，就设置10个变量啊，每页一个变量啊。

设置headerrow之后，每次换页，都会触发事件的啊，假如你纵向有3页，就会触发3次事件。每次你给10个变量赋值即可。

你生成模板的时候，要根据列数计算需要多少个变量，命名为 页面1、页面2、页面3 这样即可。