Dim ex As New Exporter
ex.SourceTableName = "到货登记1"     \'指定导出表
ex.filepath = "\\\\20110303-1502\\外部数据源\\到货登记\\金属到货登记.adb"   \'指定目标文件
ex.Export()    \'开始导出

1、以上代码输入运行时怎么会出会“到货登记1”表已存在的错误？

2、以上代码是否改为利用“已建外部数据源”，如果可以，怎么改？

1、出现这个错误此提示，是因为你的目标数据库“金属到货登记.adb"已经存在数据表“到货登记1”。

导出是在目标数据库新建一个表，如果这个表已经存在，就会出错的。

2、如果已经建立数据源，而且导入导出都是同一个数据源，可以直接用下面的SQL语句复制：

Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select * Into {新的表} From {原来的表}"
cmd.ExecuteNonQuery

如果你针对这个access文件已经创建了数据源，那么可以先删除这个表，然后再导出。

删除表，可以看看：

http://www.foxtable.com/help/topics/2122.htm

Dim Builder As New ADOXBuilder("数据源")
Builder.Open()
With Builder
    .DeleteTable("表A")
    .DeleteTable("表B")
End With
Builder.Close()

以上代码错误，那是删除内部表，而外部表用以上代码，则显示找不到要删除的表，好烦

这些代码都是经过测试的，不可能有问题的。

要么你数据源错了，要么你要删除的表名错了。

实在不行，将你多的这个access文件传上来，我做个例子给你看看。

内部表导出到外部数据表（ACCESS）时怎么不能自动覆盖外部数据源中的同名表？如果要覆盖怎么办？代码如何编写