Excel宏网络盘保存报文件被占用的原因及VBA检测方法咨询

报错产生原因 #

该报错的核心触发条件是Excel执行保存操作时无法获取目标文件的独占写锁，常见触发场景包括：

• 其他用户正以只读模式打开该文件：Excel打开网络文件时默认会添加共享读锁，即使是只读访问也会阻止其他进程的写入操作
• 网络驱动器缓存延迟：前一次保存操作的文件锁未被系统及时释放，新的保存请求就已触发
• 后台程序占用：杀毒软件、备份工具等正在扫描或读取该网络文件，临时持有文件锁
• 异常进程遗留锁：其他用户的Excel进程意外崩溃，导致文件锁未被正常释放，残留在系统中

VBA检测与错误处理方案 #

完全可以通过VBA的错误捕获机制检测到该报错，该场景对应的VBA错误号固定为1004，你可以在保存逻辑中加入错误判断和重试机制，示例代码如下：

Sub 定时保存到网络驱动器()
    Const 最大重试次数 As Integer = 3
    Dim 已重试次数 As Integer
    Dim 保存成功 As Boolean
    
    保存成功 = False
    已重试次数 = 0
    
    ' 临时关闭系统提示和屏幕更新，避免原生弹窗打断宏运行
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    On Error Resume Next ' 开启错误捕获
    Do While 已重试次数 < 最大重试次数 And Not 保存成功
        ' 替换为你实际的网络路径
        ThisWorkbook.SaveAs Filename:="\\NETWORK_PATH\NETWORK_DRIVE_EXCELFILE.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        If Err.Number = 0 Then
            保存成功 = True
        Else
            ' 判断是否为文件占用类错误
            If Err.Number = 1004 And (InStr(Err.Description, "Someone else is working") > 0 Or InStr(Err.Description, "文件正在使用") > 0) Then
                已重试次数 = 已重试次数 + 1
                ' 等待30秒后重试，可根据需求调整间隔时长
                Application.Wait Now + TimeValue("00:00:30")
                Err.Clear
            Else
                ' 其他非文件占用类错误可在此处添加自定义处理逻辑
                Exit Do
            End If
        End If
    Loop
    On Error GoTo 0 ' 恢复默认错误处理逻辑
    
    ' 恢复Excel默认设置
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    ' 可选：保存失败时生成日志
    If Not 保存成功 Then
        Open "C:\Excel保存失败日志.log" For Append As #1
        Print #1, Now & " 保存失败，累计重试" & 最大重试次数 & "次，错误信息：" & Err.Description
        Close #1
    End If
End Sub

额外优化建议：如果频繁出现锁无法释放的问题，可以先将文件保存到本地临时目录，再用FileCopy方法复制到网络驱动器，相比直接SaveAs到网络路径的稳定性更高。

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