能否从MS Access数据库提取数据至另一库？可创建自动化管控库实现流程自动化？

作为经常用Access+VBA做工具的人，我得说你的这个思路非常实用——用第三个Access数据库当中间调度器，打通两个业务库的数据流转，正好能解决你重复手动操作的痛点。结合你会VBA的基础，实现起来并不复杂，我给你梳理下关键步骤和示例：

核心实现思路 #

第三个数据库（我们叫它「调度库」）的作用就是连接另外两个数据库、提取目标数据、写入目标位置、反馈操作状态，全程用VBA自动化完成。

1. 连接两个外部数据库 #

Access里用DAO（Data Access Objects）来操作本地数据库最顺手，对新手也友好。你可以在调度库的模块里写连接函数，比如：

' 连接数据库1（数据源）
Function ConnectDB1() As DAO.Database
    Dim dbPath As String
    dbPath = "C:\你的路径\数据库1.accdb" ' 换成实际路径，建议用相对路径或配置表存路径
    Set ConnectDB1 = OpenDatabase(dbPath)
End Function

' 连接数据库2（目标库）
Function ConnectDB2() As DAO.Database
    Dim dbPath As String
    dbPath = "C:\你的路径\数据库2.accdb"
    Set ConnectDB2 = OpenDatabase(dbPath)
End Function

2. 从数据库1提取数据“A” #

假设数据“A”是某个表或查询里的记录，用Recordset来获取：

Function GetDataFromDB1() As DAO.Recordset
    Dim db1 As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db1 = ConnectDB1()
    ' 这里换成你要提取数据的SQL语句或表名
    Set rs = db1.OpenRecordset("SELECT * FROM 数据A表 WHERE 条件字段='需要的条件'")
    
    Set GetDataFromDB1 = rs
    Set db1 = Nothing ' 用完及时释放对象
End Function

3. 自动写入数据库2 #

这里分两种情况，看你是要直接写入表（效率更高），还是要模拟填写表单：

情况1：直接写入数据库2的表

Sub WriteDataToDB2()
    Dim rsSource As DAO.Recordset
    Dim db2 As DAO.Database
    Dim rsTarget As DAO.Recordset
    
    Set rsSource = GetDataFromDB1()
    Set db2 = ConnectDB2()
    Set rsTarget = db2.OpenRecordset("目标表名", dbOpenDynaset)
    
    ' 遍历源数据，逐行写入目标表
    Do While Not rsSource.EOF
        rsTarget.AddNew
        ' 对应字段赋值，比如源表的"字段1"写到目标表的"对应字段1"
        rsTarget!对应字段1 = rsSource!字段1
        rsTarget!对应字段2 = rsSource!字段2
        rsTarget.Update
        
        rsSource.MoveNext
    Loop
    
    ' 释放资源
    rsSource.Close
    rsTarget.Close
    db2.Close
    Set rsSource = Nothing
    Set rsTarget = Nothing
    Set db2 = Nothing
    
    MsgBox "数据A已成功写入数据库2！"
End Sub

情况2：模拟填写数据库2的表单

如果必须通过表单界面填写（比如表单有验证逻辑），可以打开数据库2的表单并设置控件值：

Sub FillFormInDB2()
    Dim rsSource As DAO.Recordset
    Dim accApp As Access.Application
    
    Set rsSource = GetDataFromDB1()
    Set accApp = New Access.Application
    
    ' 打开数据库2并打开目标表单
    accApp.OpenCurrentDatabase "C:\你的路径\数据库2.accdb"
    accApp.DoCmd.OpenForm "目标表单名", acNormal
    
    ' 给表单控件赋值
    With accApp.Forms("目标表单名")
        !控件1名称 = rsSource!字段1
        !控件2名称 = rsSource!字段2
        ' 保存表单记录
        .DoCmd.RunCommand acCmdSaveRecord
    End With
    
    ' 关闭并退出
    accApp.DoCmd.Close acForm, "目标表单名"
    accApp.Quit
    Set accApp = Nothing
    rsSource.Close
    Set rsSource = Nothing
    
    MsgBox "数据库2的表单已自动填写完成！"
End Sub

4. 添加操作提示与状态反馈 #

• 打开数据库1时提示发布数据：可以在数据库1的AutoExec宏里加VBA代码，弹出提示并调用调度库的程序（比如用Shell或者直接引用调度库的模块）
• 完成后告知数据库2：除了弹出提示，还可以在数据库2里加一个操作日志表，写入“数据A已同步”的记录，方便后续追溯。

关键注意事项 #

• 路径配置：不要硬编码路径，建议在调度库里做一个配置表，让用户可以随时修改两个数据库的路径，避免换电脑或移动文件后程序报错
• 错误处理：给VBA代码加上错误捕获，比如On Error GoTo ErrorHandler，防止程序中途崩溃，还能给出具体错误信息
• 资源释放：用完的Database、Recordset对象一定要及时Close并设为Nothing，避免Access进程残留

你已经会VBA的话，把这些代码片段组合起来，再根据自己的实际表结构和需求调整，很快就能跑通整个流程。如果调试时遇到具体问题，比如字段不匹配、权限问题，再针对性调整就行！

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