以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47531)
--  作者：小刚
--  发布时间：2014/3/12 7:46:00
--  只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？

Dim ex As New Exporter
ex.SourceTableName = "查询_Table1" \'指定导出表
If FileSys.FileExists("c:\\EXCEL\\text.xls") Then
    FileSys.DeleteFile("c:\\EXCEL\\text.xls")
End If
ex.FilePath = "c:\\EXCEL\\text.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "客户名称,下单日期,交货日期,客户型号,数量,金额" \'指定导出字段
ex.Filter = DataTables("查询_Table1").LoadFilter
\'指定导出条件
ex.Export() \'开始

\'-----------------------------
\'打开工作簿
Dim Proc As New Process
Proc.File = "c:\\EXCEL\\text.xls"
Proc.Start()
--  作者：blackzhu
--  发布时间：2014/3/12 7:56:00
--  
saveexcel
--  作者：小刚
--  发布时间：2014/3/12 8:01:00
--  
不明白啥意思
--  作者：lsy
--  发布时间：2014/3/12 8:04:00
--  
ex.Filter = Tables("查询_Table1").Filter
--  作者：小刚
--  发布时间：2014/3/12 8:43:00
--  
不行的.我测试了,还是所有的都会导出去.奇怪...
--  作者：Bin
--  发布时间：2014/3/12 8:46:00
--  
弹出一下 Tables("查询_Table1").Filter 看看是什么情况.