Excel VBA运行Workbooks.Open报错，多次尝试后恢复的原因排查

问题背景 #

同事运行Excel宏时反复触发以下错误提示：

文件名或路径不存在
文件正被其他程序使用
您尝试保存的工作簿与当前打开的工作簿同名

但实际场景并不匹配上述任何一种情况：同事设备为Windows 11 Enterprise 10.0.22621 + Excel 365 2312版本，已将代码中的路径改为UNC格式，且拥有目标路径的完整读写权限，点击错误弹窗的“End”按钮重试3次后，宏可正常执行。

核心报错原因分析 #

结合提供的代码与场景，主要有以下几个可能的诱因：

• 网络共享路径的短暂连接超时：UNC路径依赖网络稳定性，Windows 11与Excel 365部分版本对网络共享文件的首次访问可能存在握手延迟，导致初始请求失败，重试几次后连接建立成功。
• 代码中的路径拼写错误：代码内sFolder变量的路径为"\\Server01\pwr\Moncey\Cockpit\FairCalculation\"，而你提到的实际服务器路径是\Myserver01\pwr\Money\...，这里的Moncey大概率是Money的拼写错误——若实际服务器上不存在Moncey文件夹，首次访问会触发路径不存在的错误，后续重试可能因系统缓存或偶然因素临时绕过问题。
• 文件操作的时序与依赖问题：代码依赖ActiveWorkbook获取打开的CSV文件，而Excel的激活状态可能被后台进程（如自动保存、云同步）干扰，导致文件引用异常；同时第一个CSV文件关闭时未禁用提示，可能残留弹窗影响后续操作。
• 加载项或后台进程冲突：Excel 365的第三方加载项、Windows Defender或云同步工具（如OneDrive）可能在后台临时锁定共享文件，导致首次访问失败，重试几次后锁定解除。

代码修正方案 #

针对上述问题，优化后的代码如下（修正拼写错误、避免依赖ActiveWorkbook、规范文件操作流程）：

Sub ImportProxy()
    Dim wCockpit As Workbook, wEOD As Workbook
    Dim dCurrentEOD As Date, vCalculationMode As Variant
    Dim sFolder As String
    
    ' 保存原计算模式，禁用屏幕更新与事件提升稳定性
    vCalculationMode = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 直接引用目标工作簿，避免依赖激活状态
    Set wCockpit = Workbooks("PowerCockpit.xlsm")
    ' 修正路径拼写错误：Moncey -> Money（请根据实际路径确认）
    sFolder = "\\Server01\pwr\Money\Cockpit\FairCalculation\"
    
    ' 导入每日数据
    wCockpit.Worksheets("FairProxy_daily").Cells.ClearContents
    With wCockpit.Worksheets("FairProxy")
        If .Range("FullExportPlusRun").Value = 3 Or .Range("FullExportPlusRun").Value = 2 Or .Range("UpdateDA").Value = 1 Then
            .Range("FullExportPlusRun").Value = ""
            
            ' 直接赋值Workbook对象，避免ActiveWorkbook依赖
            Set wEOD = Workbooks.Open(Filename:=sFolder & "FairCalculation_PerDay.csv", Local:=True)
            wEOD.ActiveSheet.Cells.Copy
            wCockpit.Worksheets("FairProxy_daily").Range("A1").PasteSpecial Paste:=xlPasteValues
            ' 关闭文件时禁用提示，避免弹窗干扰
            Application.DisplayAlerts = False
            wEOD.Close SaveChanges:=False
            Application.DisplayAlerts = True
            Set wEOD = Nothing
        End If
    End With
    
    ' 导入产品维度数据
    wCockpit.Worksheets("FairProxy_PerProduct").Cells.ClearContents
    Set wEOD = Workbooks.Open(Filename:=sFolder & "FairCalculation_PerProduct.csv", Local:=True)
    wEOD.ActiveSheet.Cells.Copy
    wCockpit.Worksheets("FairProxy_PerProduct").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.DisplayAlerts = False
    wEOD.Close SaveChanges:=False
    Application.DisplayAlerts = True
    Set wEOD = Nothing
    
    wCockpit.Worksheets("FairProxy").Select
    
    ' 恢复原计算模式与系统设置
    Application.Calculation = vCalculationMode
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    CalculateWorkbook
End Sub

额外排查步骤 #

• 立即核对服务器上的实际路径，确认Moncey是否为拼写错误，若存在错误直接修正代码路径
• 将CSV文件复制到本地运行宏，若不再报错则确认是网络共享问题，可尝试映射网络驱动器并勾选“持久连接”，或在代码中添加自动重试逻辑
• 禁用Excel所有加载项后测试宏运行，排查第三方插件冲突
• 检查Windows Defender或杀毒软件的拦截规则，添加Excel访问网络共享的信任权限

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