Dim ex as New Exporterex.SourceTableName = tx '指定导出表ex.filepath = "c:\Data\订单.mdb" '指定目标文件
ex.NewTableName = tx
ex.Export() '开始导出
next