以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]  (http://www.foxtable.com/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
--  
(????)??嗨，低级错误，谢谢老师