Foxtable(狐表) → 用户栏目 → 专家坐堂 → exel多数据表写入


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

主题：exel多数据表写入
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		exel多数据表写入  发帖心情 Post By：2019/4/18 1:20:00 [只看该作者]

Tables("产品")有 分类列  有效订单 无效订单  完成订单 三种数据

写入一个工作簿中  有效订单 无效订单  完成订单  三个数据表 

可以写吗  怎么写
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/18 9:35:00 [只看该作者]

1、筛选数据

 

Tables("表A").filter = "分类='有效订单'"

 

2、保存到excel

 

http://www.foxtable.com/webhelp/scr/0559.htm

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


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/4/21 11:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20190421112212.png
图片点击可在新窗口打开查看
帮助里面只能写入单一的工作表格里
我希望 不同的客户写入同一个工作簿 不同的工作表中

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20190421112157.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/4/21 11:28:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2019/4/21 17:49:00 [只看该作者]

 

对客户筛选后saveexcel不就可以了？你写了什么代码？遇到什么问题？

 

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


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/4/21 19:07:00 [只看该作者]


Dim dr As Row = Tables("订单").Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls")
Dim fl As String = (ProjectPath & "Attachments\订单.xls")
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

'报表模板内有一个做好的模板,我希望导出时  根据 客户列  每一个客户建立一张新的表 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:订单分表导出.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2019/4/22 11:56:00 [只看该作者]

参考代码

 

Dim t As Table = Tables("订单")
Dim Book1 As new XLS.Book
For Each kh As String In t.DataTable.GetValues("客户")
    t.filter = "客户='" & kh & "'"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls")
    Dim fl As String = (ProjectPath & "Attachments\123.xls")
    Book.Build() '生成细节区
    Dim Sheet = Book.Sheets(0)
    sheet.name = kh
    Book.Sheets.Remove(Sheet)
    Book1.Sheets.Add(Sheet)
Next
Book1.Save(ProjectPath & "reports\订单.xls")
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "reports\订单.xls"
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2019/4/24 11:58:00 [只看该作者]

只能导出一行 ，期待导出所有选择行  

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/24 13:00:00 [只看该作者]

以下是引用yifan3429在2019/4/24 11:58:00的发言：
只能导出一行 ，期待导出所有选择行  

 

条件设置成all，如

 

http://www.foxtable.com/webhelp/scr/0201.htm

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