以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分组统计报表-多组如何生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174347)

--  作者:lxhmax
--  发布时间:2022/1/12 3:24:00
--  分组统计报表-多组如何生成
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:生成订单.xlsx

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

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


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


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

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

--  作者:有点蓝
--  发布时间:2022/1/12 9:11:00
--  
第2行和第6行自己隐藏一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模板.xlsx


--  作者:lxhmax
--  发布时间: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
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/1/24 20:36:00
--  
不能在细节区使用合并单元格