主题：请教同时导出多个表的代码问题

请教同时导出多个表的代码

老师您好！如将订单、客户、产品三个表同时导出为Access格式的订单.mdb中，用下面的代码可以吗？还有简化的方式吗

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

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

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

for each s as string in {"订单","客户","产品"}

谢谢蓝老师！

蓝老师，合并数据是这样嘛？

蓝老师，将 s 替换成  "订单","客户","产品"   可以吗？还是{"订单","客户","产品"}

蓝老师，6楼我提问错误，我试过了就用您的提示代码就可以了。