Dim ex As New Exporter
ex.SourceTableName = "维修" '指定导出表
ex.FilePath = "d:\我的文档\Foxtable项目\存档\售后记录.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Filter = "_Identify = " & Tables("维修").Current("_Identify") '指定导出当前表的当前行
ex.Export() '开始导出