使用VBA宏保存的.xlsx文件无法打开，手动另存为及xls格式正常

问题原因 #

SaveCopyAs 仅复制当前工作簿的原始文件格式，不会进行格式转换。如果你的原工作簿是以下情况，直接修改扩展名保存为.xlsx会导致格式与扩展名不匹配，触发报错：

• 原文件为 .xls 旧二进制格式，强行改后缀为.xlsx后，Excel无法识别
• 原文件为 .xlsm 启用宏格式，SaveCopyAs 会保留宏内容，但.xlsx不支持宏，引发格式冲突

解决方法 #

替换 SaveCopyAs 为 SaveAs 方法，并明确指定.xlsx对应的文件格式参数，保证格式与扩展名一致。同时添加文件夹检查逻辑，避免路径不存在导致保存失败：

修改后的代码 #

Sub EMAIL()
    ActiveWorkbook.Save
    Dim Fecha As String
    Dim Ruta_archivo As String
    Dim Ruta As String
    Dim Nombre_archivo As String
    Dim AnioCarpeta As String
    Dim MesCarpeta As String
    
    ' 简化日期格式化
    Fecha = Format(Date, "YYYYMMDD")
    Ruta = "path" ' 替换为你的实际根路径
    Nombre_archivo = "filename"
    AnioCarpeta = CStr(Year(Date))
    MesCarpeta = MonthName(Month(Date), False)
    
    ' 拼接完整保存路径
    Ruta_archivo = Ruta & "\" & AnioCarpeta & "\" & MesCarpeta & "\" & Nombre_archivo & Fecha & ".xlsx"
    
    ' 检查并创建年/月文件夹（避免路径不存在报错）
    If Dir(Ruta & "\" & AnioCarpeta, vbDirectory) = "" Then
        MkDir Ruta & "\" & AnioCarpeta
    End If
    If Dir(Ruta & "\" & AnioCarpeta & "\" & MesCarpeta, vbDirectory) = "" Then
        MkDir Ruta & "\" & AnioCarpeta & "\" & MesCarpeta
    End If
    
    ' 用SaveAs指定xlsx格式（无宏的Open XML格式）
    ActiveWorkbook.SaveAs Filename:=Ruta_archivo, FileFormat:=xlOpenXMLWorkbook
    
    ' 若需恢复原工作簿状态，可取消下方注释
    ' ActiveWorkbook.Save
End Sub

关键细节 #

• xlOpenXMLWorkbook 是.xlsx格式的对应常量（数值为51），确保文件内部格式与扩展名完全匹配
• 使用 Format(Date, "YYYYMMDD") 替代原字符串拼接，代码更简洁且不易出错
• 新增文件夹创建逻辑，解决目标路径不存在时的保存失败问题

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