主题：只导出窗口筛选剩下的数据，不导出整个表，该怎么修改代码？

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()