Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么把Excel自动填入内容生成另一张表,并批量打印,


  共有2250人关注过本帖树形打印复制链接

主题:[求助]怎么把Excel自动填入内容生成另一张表,并批量打印,

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107347 积分:546002 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/24 15:24:00 [显示全部帖子]

另一个表格 -- 指的另一个execl文件?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107347 积分:546002 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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) 
next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107347 积分:546002 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/24 15:56:00 [显示全部帖子]

这种用法只能使用代码实现。

不然就只能是选一行,然后点击一次打印,再选下一行,再点击一次打印.......

如果完全看不懂代码,那么请先学习一下编程基础吧:http://www.foxtable.com/webhelp/topics/1592.htm

 回到顶部