使用VBA打开公共盘P:中.xlxs文件遇ERROR 1004问题求助

问题根源 #

多人同时访问共享磁盘的Excel文件时，易因文件锁定、网络延迟或权限冲突触发1004错误，大文件直接读取时该问题会更频繁。

优化方案 #

1. 调整代码参数并添加重试机制 #

基于原代码优化，通过循环重试应对临时锁定，同时减少不必要的弹窗干扰：

Dim retryCount As Integer
Dim maxRetries As Integer
maxRetries = 5 ' 可自定义最大重试次数
retryCount = 0

Do While retryCount < maxRetries
    On Error Resume Next
    Workbooks.Open Filename:=nameofmyfile, Notify:=False, ReadOnly:=True, IgnoreReadOnlyRecommended:=True
    If Err.Number = 0 Then
        Exit Do ' 成功打开则终止循环
    End If
    Err.Clear
    retryCount = retryCount + 1
    Application.Wait Now + TimeValue("00:00:02") ' 每次重试间隔2秒，可按需调整
Loop

If retryCount = maxRetries Then
    MsgBox "多次尝试后仍无法打开文件，请检查文件是否被占用或网络连接状态"
End If

• 将Notify:=True改为False，避免文件占用提示框打断代码执行
• 新增IgnoreReadOnlyRecommended:=True，跳过只读推荐提示
• 加入循环重试与等待逻辑，适配临时的文件锁定场景

2. 优化网络访问方式 #

• 用共享文件夹的IP路径（如\\192.168.x.x\共享目录）替代盘符P:，减少盘符映射不稳定的影响
• 检查本地网络连接，确保访问共享磁盘时无频繁丢包

3. 服务器端优化（若有权限） #

• 关闭共享Excel文件的自动保存功能，降低文件锁定频率
• 确认所有访问用户的文件权限设置，保证只读用户不会触发写入锁定

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