表名相同的话,这个似乎没有办法。
表名不同的话,没有影响:
Dim nms() As String = {"表A","表B","表C"}For Each nm As String In nms Dim ex As New Exporter ex.SourceTableName = nm '指定导出表 ex.filepath = "c:\Data\订单.mdb" '指定目标文件 ex.Export() '开始导出Next