主题：请教两表导出到同一文件中的代码

请教两表导出到同一文件中的代码

1、两个订单表导出到同一销售管理.mdb里，请教如何修改代码

将订单表导出为Access格式：

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表

ex.SourceTableName = "订单2" '指定导出表
ex.filepath = "c:\Data\销售管理.mdb" '指定目标文件

ex.Export() '开始导出

但结果是，导出后只有“订单2”表

2、 假如销售管理.mdb有"订单"和"订单2"上面的代码怎样修改呢？

合并access文件：

Dim mg As New Merger
mg.SourcePath = "c:\data\销售管理.mdb"
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge()'开始合并

蓝老师下面的代码实现了我的要求，还能简化吗

'将订单表导出为Access格式：

Dim ex As New Exporter

ex.SourceTableName = "订单" '指定导出表

ex.NewTableName = "订单" '指定导出后的新表的名称

ex.filepath = "d:\Data\销售管理.mdb" '指定目标文件

ex.Export() '开始导出

ex.SourceTableName = "订单2" '指定导出表

ex.NewTableName = "订单2" '指定导出后的表的名称

ex.filepath = "d:\Data\销售管理.mdb" '指定目标文件

ex.Export() '开始导出