VBA实现无宏另存后重开原宏启用文件的打开报错排查

你的判断完全正确，报错的核心就是SaveAs执行后引发的上下文对象漂移：

• 当执行ActiveWorkbook.SaveAs将带宏的原工作簿另存为无宏xlsx格式时，Excel会自动把当前活动工作簿的指针强制切换为新生成的xlsx文件，原带宏的xlsm工作簿会被从内存中直接卸载（Excel在跨格式SaveAs时不会保留原格式实例的驻留，这是高频踩坑点）
• 你代码里取strOpen值的语句Application.Range("Open").Value，本质是从当前激活的工作簿中检索命名范围。SaveAs执行完成后，当前激活的已经是没有宏的xlsx文件，此时检索"Open"命名范围要么返回空值，要么取到错误路径，最终执行Workbooks.Open时自然弹出找不到指定文件的提示。
• 代码中ActiveWorkbook.Save、Sheets("Email").Visible = False这类依赖默认活动对象的语句，在SaveAs执行前虽然能正确匹配原宏工作簿，但只要SaveAs触发，后续所有依赖活动簿的逻辑都会发生错位。

把所有依赖ActiveWorkbook、全局Application范围取数的逻辑，全部替换为硬绑定原宏工作簿的固定对象引用，不要靠运行时上下文猜测操作对象：

• 在代码最开头，通过ThisWorkbook把当前运行宏的工作簿固定为独立对象变量，这个引用永远指向代码所在的宏工作簿，不会随SaveAs、新文件打开的操作发生偏移
• 所有原本依赖活动工作簿的操作，全部替换为对固定对象的调用，避免对象引用被自动替换
• 所有命名范围的取值操作，直接从固定的宏工作簿对象中检索，不要使用全局范围的Application.Range检索值，杜绝上下文错位带来的取值错误

Sub SaveReport()
' SaveReport Macro
    ' 固定绑定代码所在的宏工作簿，从根源避免SaveAs后的上下文漂移
    Dim wbMacro As Workbook
    Set wbMacro = ThisWorkbook
    
    Dim strFileName As String, strOpen As String
    ' 直接从固定对象中读取命名范围值，不依赖当前激活簿
    strFileName = wbMacro.Range("Attach").Value
    strOpen = wbMacro.Range("Open").Value
    
    ' 所有操作基于固定的宏工作簿对象完成
    wbMacro.Save
    wbMacro.Sheets("Email").Visible = False
    
    ' 另存为无宏xlsx格式
    wbMacro.SaveAs wbMacro.Path & "\" & strFileName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    
    ' 此时原宏工作簿已被Excel自动卸载，直接打开预先存好的目标路径即可
    Workbooks.Open strOpen
End Sub

• 原代码中SaveAs参数外层的多余括号建议移除：VBA中如果独立调用方法时给参数套强制括号，会触发参数强制传值求值，遇到路径含空格的场景容易触发类型不匹配的报错
• 存放在"Open"命名范围中的路径建议使用绝对路径，不要使用相对路径，避免SaveAs执行后Excel当前工作路径偏移，导致路径解析错误

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