主题：导出的表名称能不能动态的呢？

也可以先删除后导出。

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