Excel同名文件操作问题：关闭副本打开官方文件失败求助

问题原因 #

当文件名相同时，Excel可能因默认工作目录（副本所在的桌面）优先级、文件关闭不及时等原因，误打开桌面副本而非指定路径的官方文件。

有效解决方案 #

优化后的VBA代码 #

主提示与切换子程序

Sub PromptAndSwitch()
    Dim response As VbMsgBoxResult
    response = MsgBox("此为非官方副本，官方文件每日更新。是否关闭当前副本并打开官方文件？", vbYesNo + vbExclamation, "非官方副本提示")
    
    If response = vbYes Then
        ' 延迟1秒执行打开操作，确保当前副本完全关闭
        Application.OnTime Now + TimeValue("00:00:01"), "OpenOfficialFile"
        ' 关闭副本且不保存修改（若需保存可改为SaveChanges:=True）
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

打开官方文件的子程序

Sub OpenOfficialFile()
    Dim officialPath As String
    officialPath = "H:\Projeto de Desenvolvimento de Produtos (PDP)\52 - REUNIÃO DIÁRIA\REUNIÃO DIÁRIA - INDIVIDUAL.xlsm"
    
    ' 检查官方文件是否存在
    If Dir(officialPath) = "" Then
        MsgBox "官方文件不存在，请检查路径！", vbCritical, "错误"
        Exit Sub
    End If
    
    Dim wb As Workbook
    ' 检查官方文件是否已打开，避免重复打开
    On Error Resume Next
    Set wb = Workbooks(Dir(officialPath))
    On Error GoTo 0
    
    If wb Is Nothing Then
        ' 切换默认工作目录到官方文件路径，确保打开正确文件
        ChDir Left(officialPath, InStrRev(officialPath, "\"))
        ' 打开官方文件，强制更新链接
        Set wb = Workbooks.Open(Filename:=officialPath, UpdateLinks:=3)
    Else
        ' 若已打开则直接激活
        wb.Activate
    End If
End Sub

关键优化点 #

• 延迟执行：添加1秒延迟确保副本完全关闭后再打开官方文件，避免Excel文件资源未释放导致的路径混淆。
• 不保存副本：关闭时设置SaveChanges:=False，防止无效修改被保存，减少后续误操作风险。
• 路径校验：先检查官方文件是否存在，避免路径错误引发报错。
• 切换工作目录：打开前将默认工作目录切换到官方文件所在路径，确保Excel优先读取该路径下的同名文件。
• 避免重复打开：先检查官方文件是否已打开，若已打开直接激活，提升操作效率。

内容的提问来源于stack exchange，提问作者Júlio César Pedrini