以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Exporter导出数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160878)

--  作者:wangnovel
--  发布时间:2021/2/24 22:06:00
--  Exporter导出数据
我准备用Exporter导出数据到excel,系统中有多个表,但我想把所有表都倒到一个excel上,一个表占一个sheet,请问怎么实现?
--  作者:有点蓝
--  发布时间: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