ActiveWorkbook.SaveAs在Excel最近文件列表打开时无法正常工作

从Excel最近文件列表打开时宏无法完成重命名保存，核心原因大概率是文件加载时机问题：最近文件打开时，Excel可能在工作簿完全初始化前就触发了宏，导致ActiveWorkbook.Path获取异常，或者工作簿处于临时锁定状态。结合你的代码，给出以下修正方案：

关键修正点 #

• 替换ActiveWorkbook为ThisWorkbook：确保操作的是当前包含宏的工作簿，避免ActiveWorkbook指向临时加载对象
• 用Application.PathSeparator替代硬编码的"/"：适配Windows系统的"\"路径分隔符，避免路径拼接错误
• 明确指定文件格式：SaveAs时不指定格式可能导致兼容性问题，尤其是原文件启用宏的情况
• 增加路径空值检查：防止Path属性未加载完成导致的空路径错误
• 添加强制延迟（可选）：确保工作簿完全加载后再执行保存逻辑

修正后的代码 #

Sub Save_PO_File()
    Dim PON As String
    Dim strNewName As String
    Dim strPath As String
    Dim NewName As String
    
    ' 等待工作簿完全加载（针对最近文件打开的延迟问题）
    Do Until ThisWorkbook.Ready
        DoEvents
    Loop
    
    PON = InputBox("Please enter PO Number to Start Checklist:", Xpos:=2880, Ypos:=1440)
    ' 检查用户是否取消输入
    If PON = "" Then Exit Sub
    
    strNewName = "Rental Checklist PO " & PON
    strPath = ThisWorkbook.Path
    
    ' 处理路径为空的情况（比如文件从未保存过）
    If strPath = "" Then
        MsgBox "Error: 文件未保存，无法获取路径", vbCritical
        Exit Sub
    End If
    
    ' 使用系统标准路径分隔符拼接文件名
    NewName = strPath & Application.PathSeparator & strNewName
    
    Application.DisplayAlerts = False
    On Error Resume Next ' 捕获保存错误
    ' 明确指定文件格式（xlOpenXMLWorkbookMacroEnabled对应.xlsm，根据原文件格式调整）
    ThisWorkbook.SaveAs Filename:=NewName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    On Error GoTo 0
    Application.DisplayAlerts = True
    
    ' 验证保存结果
    If ThisWorkbook.Name = strNewName & ".xlsm" Then ' 对应指定的格式后缀
        MsgBox "文件已成功重命名为：" & NewName & ".xlsm"
    Else
        MsgBox "保存失败，请检查路径权限或文件名是否合法"
    End If
End Sub

额外注意事项 #

• 确保宏启用：从最近文件打开时，Excel可能默认禁用宏，需确认宏已启用（文件启用宏提示时选择"启用内容"）
• 检查文件权限：目标路径是否有写入权限，文件名是否包含非法字符（如\ / : * ? " < > |）
• 宏触发时机：如果是用Workbook_Open事件触发，确保事件绑定正确，避免冲突

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