[原创] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]

共有4724人关注过本帖树形打印复制链接主题：[原创]

boomstar

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：100 威望：0 精华：0 注册：2022/3/16 9:54:00

[原创]

Post By：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文件。

boomstar

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：100 威望：0 精华：0 注册：2022/3/16 9:54:00

Post By：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)

boomstar

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：100 威望：0 精华：0 注册：2022/3/16 9:54:00

Post By：2022/3/16 16:10:00 [显示全部帖子]

用菜单生成报表没问题，用代码生成就不行了，

boomstar

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：100 威望：0 精华：0 注册：2022/3/16 9:54:00

Post By：2022/3/16 16:15:00 [显示全部帖子]

这是数据表请老师看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:综合.xlsx

boomstar

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：100 威望：0 精华：0 注册：2022/3/16 9:54:00

Post By：2022/3/16 17:50:00 [显示全部帖子]

(????)??嗨，低级错误，谢谢老师

下一主题 >> << 上一主题

主题：[原创]