以文本方式查看主题

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

--  作者:q2649295605
--  发布时间:2015/6/5 15:50:00
--  数据导出
Dim ex As New Exporter
ex.SourceTableName = "维修" \'指定导出表
ex.FilePath = "d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Filter = " ????     "\'指定导出当前表的当前行
ex.Export() \'开始导出

另外我想:d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls  已经存在!

再次运行的时候,能把想要导出的数据添加到已存在的售后记录.xls 中去!

--  作者:大红袍
--  发布时间:2015/6/5 15:53:00
--  

Dim ex As New Exporter

ex.SourceTableName = "维修" \'指定导出表

ex.FilePath = "d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls" \'指定目标文件

ex.Format = "Excel" \'导出格式为Excel

ex.Filter = "_Identify = " & Tables("维修").Current("_Identify") \'指定导出当前表的当前行

ex.Export() \'开始导出

[此贴子已经被作者于2015/6/5 15:53:07编辑过]

--  作者:q2649295605
--  发布时间:2015/6/5 16:05:00
--  
语法错误 在查询表达式 \'_Identify = 6\' 中


???

--  作者:q2649295605
--  发布时间:2015/6/5 16:06:00
--  错误
语法错误 在查询表达式 \'_Identify = 6\' 中
--  作者:Bin
--  发布时间:2015/6/5 16:08:00
--  
ex.Filter = "[_Identify] = " & Tables("维修").Current("_Identify") \'指定导出当前表的当前行

试试看

--  作者:q2649295605
--  发布时间:2015/6/5 16:13:00
--  对了!!
另外我想:d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls  已经存在!

再次运行的时候,能把想要导出的数据添加到已存在的售后记录.xls 中去!


好不好弄啊?

--  作者:大红袍
--  发布时间:2015/6/5 17:10:00
--  
你需要重新生成一个文件还是在原先的文件里插入一条数据?