Foxtable(狐表)用户栏目专家坐堂 → Exporter导出数据


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

主题:Exporter导出数据

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


加好友 发短信
等级:童狐 帖子:211 积分:2241 威望:0 精华:0 注册:2012/10/6 17:19:00
Exporter导出数据  发帖心情 Post By:2021/2/24 22:06:00 [只看该作者]

我准备用Exporter导出数据到excel,系统中有多个表,但我想把所有表都倒到一个excel上,一个表占一个sheet,请问怎么实现?

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 8:34:00 [只看该作者]

遍历所有表导出即可:

For Each tb As Table In Tables
   
Dim ex as New Exporter
ex
.SourceTableName = tb.name '指定导出表
ex
.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() 
'开始导出

Next

 回到顶部