Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？


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

主题：[求助]怎么按主表的关联列比如卡号，将主表所有卡号列对应的关联表都一键导出到文件夹里？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/5/24 20:13:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:返利单.xls
 回到顶部
帅哥哟，离线，有人找我吗？
yjm789000
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1711 威望：0 精华：0 注册：2016/7/18 20:17:00 		回复：（有点蓝）[upload=xls,返利单.xls]viewFile.as...  发帖心情 Post By：2019/5/24 20:54:00 [只看该作者]

客户就是要按卡号导出为一个个的excel文件出来，分组统计的效果他们不需要，所以我就搞了好久。甜老师，麻烦下教我怎么导出为按卡号一个个是生成EXCEL。然后表联表的内容只需要本月的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/5/24 21:02:00 [只看该作者]

那就更简单了，模板不需要改，导出按钮代码

For i As Integer = 0 To Tables("油卡信息表").Rows.count - 1
    Dim r As Row = Tables("油卡信息表").Rows(i)
    Tables("油卡信息表").Position = i
    Dim Book As New XLS.Book(ProjectPath & "Attachments\返利单.xls")
    Dim fl As String = ProjectPath & "Reports\返利单" & r("卡号") & ".xls"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
Next

[此贴子已经被作者于2019/5/24 21:02:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yjm789000
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1711 威望：0 精华：0 注册：2016/7/18 20:17:00 		回复：（有点蓝）那就更简单了，模板不需要改，导出按...  发帖心情 Post By：2019/5/24 21:23:00 [只看该作者]

感谢甜老师！

 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询