Word VBA宏关联Excel数据源反复被旧数据覆盖故障咨询

1. 文件更新流程存在竞态条件，是数据反复回滚的核心原因 #

你现在用的「复制服务器文件到本地编辑→回传覆盖」流程天生存在丢数据风险：

• 本地复制拿到的是复制时刻的文件快照，你编辑本地文件的周期里，只要有其他用户也做了同样的下载-编辑-回传操作，晚回传的人会直接用自己手里的旧快照覆盖掉之前别人上传的新版本，直接导致新记录丢失、已删除记录复活。
• 你手动给文件加只读属性的操作完全防不住覆盖：复制文件的操作会直接替换目标文件，不会触发只读打开的提示，等于这个防护完全没生效。

2. OLEDB连接默认配置会锁定数据源，导致覆盖操作静默失败 #

你现有代码的连接配置有问题：

• 虽然记录集开了adLockReadOnly，但连接本身默认是读写优先级打开的，只要有用户运行宏，或者宏崩溃没正常退出，服务器目录下就会残留锁文件~$LetterMemoDB.xlsx。
• 这时候你回传覆盖文件时，Windows会因为文件被占用出现两种异常：要么直接复制失败但没有明显提示，你以为传成功了实际服务器上还是旧文件；要么把新文件写到临时目录，等锁释放后旧文件自动还原，看起来就像数据自己变回去了。

3. 附带代码隐患 #

现有代码缺资源释放逻辑和输入校验，宏异常退出时会残留连接锁，还存在单引号触发SQL报错的问题，虽然不直接导致数据覆盖，但会提升故障概率。

第一步：替换文件更新流程，从根源消除竞态 #

• 立刻停止本地编辑后回传覆盖的操作，直接打开服务器共享路径下的源文件编辑。打开时如果提示「文件被其他用户占用」，等占用方退出后再操作，不要强行编辑本地副本。
• 给共享文件夹开启卷影副本/版本历史，设置最短每小时自动留存一个版本，出现误覆盖可以直接回滚到对应版本，不用手动找备份。
• 调整共享权限：普通运行宏的用户只给只读权限，仅保留1-2个数据源维护人员的写入权限，从系统层面堵死误覆盖的可能，不用靠手动改文件属性做防护。

第二步：修改VBA连接配置，彻底消除文件锁 #

把原有数据库连接部分的代码替换为如下内容，强制连接以只读模式打开，不会产生写入锁：

' Make DB connection
mySQLquery = "SELECT * FROM [all_users$] WHERE LoginID = '" & Replace(myKey, "'", "''") & "'" ' 转义单引号防SQL报错
mySource = "\\server1\LetterMemoDB.xlsx"
Set myConn = New ADODB.Connection
Set myRs = New ADODB.Recordset

With myConn
    .Mode = adModeRead ' 显式设置连接为只读模式，不申请写入权限
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "Data Source=" & mySource & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;ReadOnly=True;"""
End With
myConn.Open
myRs.Open mySQLquery, myConn, adOpenStatic, adLockReadOnly

第三步：加错误捕获，保证资源正常释放 #

在宏的最开头加错误跳转，在末尾统一做资源清理，避免宏崩溃后残留连接锁：

Public Sub Letter()
    On Error GoTo Cleanup ' 任何报错都跳转到清理逻辑
    ' --- 你原有所有业务代码放在这---

' 所有业务逻辑结束后也走清理流程
Cleanup:
    ' 依次释放记录集、连接资源
    If Not myRs Is Nothing Then
        If myRs.State = adStateOpen Then myRs.Close
        Set myRs = Nothing
    End If
    If Not myConn Is Nothing Then
        If myConn.State = adStateOpen Then myConn.Close
        Set myConn = Nothing
    End If
    ' 报错就弹提示
    If Err.Number <> 0 Then
        MsgBox "宏运行异常：" & Err.Description, vbCritical
    End If
End Sub

验证方法 #

改完后做个简单测试：

1. 运行宏停在信函编辑界面，不要关闭Word
2. 直接打开服务器上的源文件，新增一条测试记录后保存，确认能正常写入无占用提示
3. 关闭宏，刷新源文件确认测试记录存在，删除测试记录后重新打开，确认记录不会复活
   测试通过就说明锁的问题已经解决，后续只要不使用本地副本回传的操作方式，就不会再出现旧数据覆盖的问题。

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