主题：过滤后的数据导出的问题

1，第一列是经过几个条件筛选后的，用这个命令导出，结果导出后是没筛选前的数据

Dim ex As New Exporter
ex.SourceTableName = "表a" '指定导出表
ex.FilePath = "c:\" '指定目标文件路径
ex.Format = "Fixed" '导出格式为固定宽度的文本文件
ex.Fields = "第一列"
ex.Header= "False"
ex.NewTableName = "888" '指定文件名,注意无须扩展名
ex.Export() '开始导出

2，导出后的文件不需要列名，ex.Header="False" 这个没起作用

不用事先筛选，在代码中加上

ex.Filter = "[第一列] = '要筛选的内容' "

如果是手工筛选后导出,参考代码:

Dim ex As New Exporter
ex.SourceTableName = "表a" '指定导出表
ex.FilePath = "c:\" '指定目标文件路径
ex.Format = "Fixed" '导出格式为固定宽度的文本文件
ex.Fields = "第一列"
ex.Header= "False"
ex.NewTableName = "888" '指定文件名,注意无须扩展名
ex.Filter = Tables("表A").Filter
ex.Export() '开始导出