标题：Exporter导出多表的问题

向同一个Access文件中导出多个查询表的数据，总是出错。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目23.rar

收到，我抽空看看

这个没有问题的，应该这样：

'导出第一个表
Dim dc as New Exporter
dc.FilePath = "d:\123.mdb"
dc.SourceTableName = Tables("窗口1_Table1").Name

Tables("窗口1_Table1").fill("select Category,Name from code","aaa",True)
dc.NewTableName = "A"
dc.Export

'往同一个文件中导出第二个表
dc = New Exporter
dc.FilePath = "d:\123.mdb"
dc.SourceTableName = Tables("窗口1_Table1").Name

Tables("窗口1_Table1").fill("select Category as bb ,Name from code","aaa",True)
dc.NewTableName = "b"
dc.Export

我试试。。

按3楼代码测试通过。
只是有一点不明白，这3行代码已经定义过了，为什么在导出第2个表时还要重复定义一次？
dc = New Exporter
dc.FilePath = "d:\123.mdb"
dc.SourceTableName = Tables("窗口1_Table1").Name
这样的代码感觉有点啰嗦，如果是导出N个表，就要重复N次。。。

只能这样的