| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]foxtable中的多个表能否导出到一个EXCEL的表中？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33738) |
| -- 作者：雨湘 -- 发布时间：2013/5/23 15:52:00 -- [求助]foxtable中的多个表能否导出到一个EXCEL的表中？ foxtable中的多个表能否导出到一个EXCEL的表中？ [此贴子已经被作者于2013-5-23 15:52:02编辑过]
|
| -- 作者：ybil -- 发布时间：2013/5/23 15:57:00 -- Dim nns as string() ={"A","S","D"} For each bm as string In nns Dim ex as New Exporterex.SourceTableName = bm \'指定导出表 ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel \'ex.Fields = "日期,客户,数量,单价" \'指定导出字段 \'ex.Filter = "[产品] = \'PD01\'" \'指定导出条件 ex.Export() \'开始导出 Next
|
| -- 作者：雨湘 -- 发布时间：2013/5/23 16:03:00 -- 以下是引用ybil在2013-5-23 15:57:00的发言：
Dim nns as string() ={"A","S","D"}
For each bm as string In nns Dim ex as New Exporterex.SourceTableName = bm \'指定导出表 ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel \'ex.Fields = "日期,客户,数量,单价" \'指定导出字段 \'ex.Filter = "[产品] = \'PD01\'" \'指定导出条件 ex.Export() \'开始导出 Next
不用代码可以实现吗？ |
| -- 作者：ybil -- 发布时间：2013/5/23 16:13:00 -- 也行 |
| -- 作者：雨湘 -- 发布时间：2013/5/23 16:16:00 -- 具体该怎么做？ |
| -- 作者：ybil -- 发布时间：2013/5/23 16:19:00 -- 一个一个的导出 |
| -- 作者：雨湘 -- 发布时间：2013/5/23 16:22:00 -- 我的目的是把foxtable中的多个表的内容导出到一个EXCEL表中，一个一个导出怎么实现？ |
| -- 作者：ybil -- 发布时间：2013/5/23 16:24:00 -- 昏,给代码你不用,说少了还是不会: 一个表一个表的导出到相同的文件,OK? |
| -- 作者：雨湘 -- 发布时间：2013/5/23 16:34:00 -- 我要的目的是这样的，假设foxtable中有A,B,C,D,......Z共计26张表，需要将这26张表的内容导出到EXCEL表假设名称叫表1，而不是导出到分开的不同的26个工作表中，也就是foxtable中的26表的内容全部在一张工作表中实现。而不是分开的工作表中实现。 |
| -- 作者：ybil -- 发布时间：2013/5/23 16:49:00 -- 纸上不谈兵 |