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

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

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() '开始导出