Foxtable(狐表)用户栏目专家坐堂 → excel报表分组名称细节如何写


  共有1961人关注过本帖树形打印复制链接

主题:excel报表分组名称细节如何写

帅哥哟,离线,有人找我吗?
fytea
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6175 威望:0 精华:0 注册:2015/7/25 19:14:00
excel报表分组名称细节如何写  发帖心情 Post By:2016/2/22 18:18:00 [只看该作者]

excel报表分组名称细节如何写

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/22 18:52:00 [只看该作者]

 不明白你所指。

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
fytea
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6175 威望:0 精华:0 注册:2015/7/25 19:14:00
  发帖心情 Post By:2016/2/23 13:16:00 [只看该作者]

按分组名打印报表,每一个分组打印一份文件,页码都是总从1开始计起

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 


 回到顶部