以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175711)

--  作者:boomstar
--  发布时间:2022/3/16 10:11:00
--  [原创]

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls") \'打开模板
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Sheet
(3,9).Value = "<用户名 = 张三>"  \'写入打印条件
Book.Build()
\'生成报表
Book.
SaveAs("d:\\张三.xls")

我的数据有很多个用户名,如何利用模板批量操作,以每个用户名生成报表,再以用户名为文件名单存一个XLS文件。


--  作者:有点蓝
--  发布时间:2022/3/16 10:34:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080

比如

Dim Products As List(Of String)
Products DataTables("订单").GetValues("用户名")
For
 Each Product As String In Products

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls"\'打开模板
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)
Sheet
(3,9).Value = "<用户名 = \'" & Product & "\'>"  \'写入打印条件

Book.Build() \'生成报表
Book.
SaveAs("d:\\" & Product & ".xls")

Next

--  作者:800346
--  发布时间:2022/3/16 10:50:00
--  
谢谢老师的指点
--  作者:boomstar
--  发布时间:2022/3/16 15:57:00
--  
谢谢老师讲解,还有个问题,有条语句有错误,生成的报表是空表,我附了模板文件,请老师帮忙看看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:双地块图模板.xls


Dim Products As List(Of String)
Products = DataTables("综合").GetValues("农户名")
For Each Product As String In Products
Dim Book As New XLS.Book(ProjectPath & "Attachments\\双地块图模板.xls") \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,10).Value = "<用户名 = \'"& Product &"\'>"  \'写入打印条件
Book.Build() \'生成报表
Book.Save("d:\\临时\\" & Product & ".xls")

\'Output.Show(Product)

Next

--  作者:有点蓝
--  发布时间:2022/3/16 16:02:00
--  
代码没有问题,导出这个综合表部分数据测试一下
--  作者:boomstar
--  发布时间:2022/3/16 16:10:00
--  
用菜单生成报表没问题,用代码生成就不行了,
--  作者:boomstar
--  发布时间:2022/3/16 16:15:00
--  
这是数据表请老师看看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:综合.xlsx


--  作者:有点蓝
--  发布时间:2022/3/16 16:36:00
--  
Sheet(2,10).Value = "<农户名 = \'"& Product &"\'>"  \'写入打印条件
--  作者:boomstar
--  发布时间:2022/3/16 17:50:00
--  
(????)??嗨,低级错误,谢谢老师