Excel VBA无法打开外部工作簿：代码无报错却失效的问题排查

核心错误点 #

• 路径拼接缺分隔符：ThisWorkbook.Path返回的路径末尾不带反斜杠，直接拼接文件名会生成无效路径（比如原路径是C:\报表，拼完变成C:\报表Advanced Risk Management Report.xlsx），导致Dir搜不到目标文件，就算搜到了Open也找不到正确路径。
• 变量名拼写错误：你定义的变量是sFound，但打开工作簿时写成了未定义的Found——如果严格启用Option Explicit本该报错，这是明显的笔误硬伤。
• 未处理工作簿未保存的情况：如果当前工作簿还没存过，ThisWorkbook.Path会返回空字符串，后续所有路径操作都会失效。

修复后的完整代码 #

Option Explicit
Sub NewWorksheet()
    Dim sFound As String, fPath As String
    Dim WB1 As Workbook
    
    ' 先检查当前工作簿是否已保存
    If ThisWorkbook.Path = "" Then
        MsgBox "先把当前工作簿存个档！", vbExclamation
        Exit Sub
    End If
    
    ' 给路径加上反斜杠，确保拼接格式正确
    fPath = ThisWorkbook.Path & "\"
    ' 查找匹配的xlsx文件
    sFound = Dir(fPath & "Advanced Risk Management Report*.xlsx")
    
    If sFound <> "" Then
        ' 使用正确的变量名拼接路径，打开目标工作簿
        Set WB1 = Workbooks.Open(fPath & sFound)
    Else
        MsgBox "没找到符合条件的工作簿哦！", vbInformation
    End If
End Sub

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