如何通过VBA实现Access数据库间数据追加而非覆盖？

你用DoCmd.CopyObject会覆盖目标表是因为这个方法本质是替换整个表对象，而非追加数据。要实现高效的跨库数据追加，最直接的方案是使用SQL的INSERT INTO语句直接跨库操作，完全不需要导入临时表，效率比你提到的方法高得多。

核心实现思路 #

通过构造跨库的INSERT INTO语句，直接将源数据库表中的数据追加到目标数据库的表中，基础语法如下：

INSERT INTO [目标表名] IN '目标数据库完整路径' SELECT * FROM [源表名]

完整VBA代码示例 #

Sub AppendDataToRemoteDB()
    Dim targetDBPath As String
    Dim appendSQL As String
    
    ' 替换为你的DATABASE2实际文件路径（支持.accdb/.mdb格式）
    targetDBPath = "D:\Data\DATABASE2.accdb"
    
    ' 构造追加SQL：表头完全匹配时直接用SELECT *
    appendSQL = "INSERT INTO TABLE_B IN '" & targetDBPath & "' SELECT * FROM TABLE_A"
    
    ' 执行SQL，dbFailOnError参数会在出错时抛出详细错误信息
    On Error Resume Next
    CurrentDb.Execute appendSQL, dbFailOnError
    On Error GoTo 0
    
    If Err.Number = 0 Then
        MsgBox "数据追加成功", vbOKOnly + vbInformation
    Else
        MsgBox "追加失败：" & Err.Description, vbOKOnly + vbCritical
    End If
End Sub

关键注意事项 #

• 字段匹配问题：如果两个表的字段顺序不完全一致，不要用SELECT *，必须明确指定字段列表，避免数据错位：

  INSERT INTO TABLE_B (ID, Name, CreateTime) IN '目标路径' SELECT ID, Name, CreateTime FROM TABLE_A
  

• 路径含空格处理：如果目标数据库路径包含空格，需要用双引号包裹路径，可通过Chr(34)实现：

  appendSQL = "INSERT INTO TABLE_B IN " & Chr(34) & targetDBPath & Chr(34) & " SELECT * FROM TABLE_A"
  

• 约束检查：确保目标表的主键、唯一约束不会被源表数据违反，否则会导致追加失败。
• 执行效率：CurrentDb.Execute比DoCmd.RunSQL更高效，且不会弹出数据操作确认对话框（如果用DoCmd.RunSQL，需要先执行DoCmd.SetWarnings False，操作完成后恢复DoCmd.SetWarnings True）。

内容的提问来源于stack exchange，提问作者widofmaker