Foxtable(狐表)用户栏目专家坐堂 → 分组统计报表-多组如何生成


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

主题:分组统计报表-多组如何生成

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


加好友 发短信
等级:三尾狐 帖子:636 积分:5699 威望:0 精华:0 注册:2012/8/2 19:04:00
分组统计报表-多组如何生成  发帖心情 Post By:2022/1/12 3:24:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:生成订单.xlsx

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模板.xlsx

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:原始数据.xls


请问下老师,如何生成右表这样的统计表?


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20220112032326.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/1/12 3:26:57编辑过]

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/12 9:11:00 [只看该作者]

第2行和第6行自己隐藏一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模板.xlsx


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


加好友 发短信
等级:三尾狐 帖子:636 积分:5699 威望:0 精华:0 注册:2012/8/2 19:04:00
  发帖心情 Post By:2022/1/24 18:49:00 [只看该作者]

   Dim zj As Double = Tables("对账单明细").Compute("Sum(小计)")
    Dim Book As New XLS.Book("D:\模板.xlsx")
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Book.Marks.Add("总金额",CUMoney(zj))
    Book.Marks.Add("委托单位1","To:" & r("委托单位"))
    Book.Marks.Add("委托单位2",r("委托单位"))
    Book.Marks.Add("标题",Format(r("委托日期"),"MMM") & "对账单") '十二月
    Book.Build() '生成细节区
    Book.Save("D:\生成对账单.xlsx")'保存工作簿

老师,为什么我用这个方式生成excel报表的时候会不稳定,有时候生成的报表单元格全部被拆分掉了,就是那些合并的单元格没了

图片点击可在新窗口打开查看此主题相关图片如下:微信图片编辑_20220124184836.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/24 20:36:00 [只看该作者]

不能在细节区使用合并单元格

 回到顶部