以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel报表分组名称细节如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81249)
--  作者：fytea
--  发布时间：2016/2/22 18:18:00
--  excel报表分组名称细节如何写
excel报表分组名称细节如何写
--  作者：大红袍
--  发布时间：2016/2/22 18:52:00
--  

 不明白你所指。

 

 http://www.foxtable.com/help/topics/1542.htm

 
--  作者：fytea
--  发布时间：2016/2/23 13:16:00
--  
按分组名打印报表，每一个分组打印一份文件，页码都是总从1开始计起
--  作者：大红袍
--  发布时间：2016/2/23 14:06:00
--  

 参考代码

 

For Each fz As String In DataTables("表A").GetValues("第一列")
    Tables("表A").Filter = "第一列 = \'" & fz & "\'"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
    Dim fl As String = ProjectPath & "Reports\\出库单" & fz & ".xls"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
Next

 

http://www.foxtable.com/help/topics/1145.htm