VBA宏周期性报错‘Method SaveAs of object _Workbook failed’求助

原代码的核心问题 #

• 依赖ActiveWorkbook导致不稳定：ActiveWorkbook会随操作切换，多次运行时容易指向错误文件，引发不可预测的报错
• 未指定完整文件路径：SaveAs仅写文件名，默认保存路径可能变化，或同路径下已有同名文件被占用
• 文件名替换逻辑不严谨：直接Replace("xls", "xlsx")会误改文件名中包含"xls"的字符（比如文件名是"ExcelSample.xls"会变成"ExcexlSample.xlsx"）
• 重复打开/关闭操作冗余且易出错：保存后重复打开、关闭的流程容易触发文件锁，导致周期性报错

修正后的代码 #

' 将当前xls文件转换为xlsx格式并重新打开
Sub ConvertToXlsx()
    Dim originalPath As String
    Dim newFileName As String
    Dim newWorkbook As Workbook
    
    ' 禁用提示，避免弹窗干扰
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False ' 额外禁用屏幕刷新，提升稳定性
    
    ' 获取当前代码所在工作簿的完整路径和文件名
    originalPath = ThisWorkbook.Path
    If originalPath = "" Then ' 处理未保存过的文件（临时目录）
        originalPath = Environ("TEMP")
    End If
    
    ' 生成正确的xlsx文件名（替换后缀，而非全局替换）
    newFileName = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 3) & "xlsx"
    newFileName = originalPath & "\" & newFileName
    
    ' 保存为xlsx格式
    ThisWorkbook.SaveAs Filename:=newFileName, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    ' 打开新保存的xlsx文件
    Set newWorkbook = Workbooks.Open(newFileName)
    
    ' 关闭原xls文件
    ThisWorkbook.Close SaveChanges:=False
    
    ' 恢复设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

关键修复说明 #

• 用ThisWorkbook替代ActiveWorkbook：ThisWorkbook始终指代运行当前代码的工作簿，避免活动工作簿切换导致的错误
• 指定完整文件路径：确保保存路径明确，避免默认路径变化或文件冲突
• 正确替换文件后缀：通过截取文件名长度替换后缀，避免误改文件名内容
• 简化打开/关闭流程：直接保存新文件、关闭原文件，只打开新文件，减少冗余操作，降低文件锁触发概率
• 额外添加屏幕刷新禁用：减少系统资源占用，提升批量运行时的稳定性

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