主题：导出成EXCEL，怎么按选择列导出？

经过测试，完全正常：

Dim ex As New Exporter
ex.SourceTableName = "订单" '指定导出表
If FileSys.FileExists("c:\Data\订单.xls") Then
    FileSys.DeleteFile("c:\Data\订单.xls")
End If
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价" '指定导出字段
ex.Filter = Tables("订单").Filter '指定导出条件
ex.Export() '开始

楼主是记忆型选手，不是分析型选手。

你的项目中只有DataTables("应收货款").LoadFilter，没有Tables("应收货款").Filter，就是说ex.Filter = ""

ex.Filter = Tables("应收货款").Filter

改成：

ex.Filter = DataTables("应收货款").LoadFilter

就行了。