- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎么把Excel自动填入内容生成另一张表，并批量打印， (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152888)
-- 发布时间：2020/7/24 15:16:00
-- [求助]怎么把Excel自动填入内容生成另一张表，并批量打印，
我想把一个excel信息表里的内容，自动生成到另一个表格里面。内容是一一对应的。怎么能自动生成表格？然后批量打印。
[此贴子已经被作者于2020/7/24 15:27:22编辑过]
-- 发布时间：2020/7/24 15:24:00
--
另一个表格 -- 指的另一个execl文件？
-- 发布时间：2020/7/24 15:31:00
--
对呀 就是我原表里的内容 需要批量打印 但是打印要换成另一个格式打印 我不知道我说明白没 就比如我一个表里有五十行信息 但是我打印的时候需要出五十张表格 但是内容的一一对应的 怎么能做到？
-- 发布时间：2020/7/24 15:43:00
--
一行生成一个execl文件？试试
for each r as row in tables("表A").rows
tables("表A").position = r.index
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\订单" & r("编号") & ".xls"
Book.Build() \'生成报表
Book.Save(fl)
Dim fl As String = ProjectPath & "Reports\\订单" & r("编号") & ".xls"
Book.Build() \'生成报表
Book.Save(fl)
next
-- 发布时间：2020/7/24 15:51:00
--
我是真一点也不会 你给我这个 然后 我应该怎么弄啊？
-- 发布时间：2020/7/24 15:56:00
--
这种用法只能使用代码实现。
不然就只能是选一行，然后点击一次打印，再选下一行，再点击一次打印.......
如果完全看不懂代码，那么请先学习一下编程基础吧：http://www.foxtable.com/webhelp/topics/1592.htm
-- 发布时间：2020/7/24 16:26:00
--
太难了吧 。。。。
