请求解决MS Access数据库间同名列数据迁移的高效方案

方法一：用Access内置导入工具快速搞定（零代码） #

这是最省心的方案，Access会自动匹配同名字段，完全适配你的场景：

• 打开目标空数据库，切换到「外部数据」选项卡
• 点击「Access」按钮，在弹窗里选择你的源数据库文件，选「将表、查询、窗体等导入当前数据库」，点确定
• 在「导入对象」窗口，按Ctrl+A全选需要迁移的20张表
• 点右下角「选项」，确认勾选「只导入定义和数据」，再点确定
• 完成后，目标库中同名列会自动填充源库数据，多出的列保持为空，全程不用手动选列

方法二：VBA脚本批量迁移（适合重复操作） #

如果以后还要做类似迁移，写个VBA脚本一键搞定：

1. 打开目标数据库，按Alt+F11打开VBA编辑器
2. 插入新模块，粘贴下面的代码：

Sub MigrateMatchingColumns()
    Dim srcDb As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim strSQL As String
    Dim strFields As String
    
    ' 替换成你的源数据库实际路径
    Set srcDb = OpenDatabase("C:\Your\Source\Path\SourceDB.accdb")
    
    ' 遍历目标库所有表（跳过系统表）
    For Each tdf In CurrentDb.TableDefs
        If Left(tdf.Name, 4) <> "MSys" Then
            ' 检查源库是否有同名表
            If Not IsNull(srcDb.TableDefs(tdf.Name)) Then
                strFields = ""
                ' 收集双方共有的字段名
                For Each fld In tdf.Fields
                    If Not IsNull(srcDb.TableDefs(tdf.Name).Fields(fld.Name)) Then
                        strFields = strFields & IIf(strFields <> "", ", ", "") & "[" & fld.Name & "]"
                    End If
                Next fld
                
                ' 生成插入SQL并执行
                strSQL = "INSERT INTO [" & tdf.Name & "] (" & strFields & ") " & _
                         "SELECT " & strFields & " FROM [" & tdf.Name & "] IN '" & srcDb.Name & "'"
                CurrentDb.Execute strSQL, dbFailOnError
                Debug.Print "迁移完成：" & tdf.Name & "，导入 " & CurrentDb.RecordsAffected & " 条记录"
            End If
        End If
    Next tdf
    
    srcDb.Close
    Set srcDb = Nothing
    MsgBox "所有数据迁移完成！"
End Sub

3. 修改代码里的源数据库路径为你的实际路径
4. 按F5运行脚本，自动完成所有表的匹配列数据迁移

注意事项 #

• 迁移前务必备份两个数据库，防止意外
• 如果源表有主键或约束，目标表会保留原有结构（因为是插入数据而非覆盖表）
• 若自动编号字段不需要迁移，可在代码中添加判断跳过这类字段

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