只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？

共有3532人关注过本帖树形打印复制链接主题：只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？

小刚

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：584 积分：3816 威望：0 精华：0 注册：2012/10/15 20:39:00

只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？ 发帖心情

Post By：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()