使用worksheet.saveas保存Excel文件时出错

Question

我有一个Excel模板文件。 基于Excel版本，我想通过Matlab另存为Temp.xlsm。

这是我用来保存模板文件的代码：

if(XLversion >= 12.0)
    Workbook = invoke(Excel.Workbooks,'Open',tempxls);
    tempxls1 = [pwd '\utils\temp.xlsm'];
    Workbook.SaveAs(tempxls1,1);
    tempxls = tempxls1;
    extn = 'xlsm';
end

该代码工作正常。 但是，当我尝试打开文件时，出现以下错误：

但是，通过“另存为”菜单将temp.xls保存到temp.xlsm时，它打开时没有任何错误。

任何想法可能是代码中的错误，或者如果我遗漏了什么。

谢谢

Answer 1

您可以尝试以下代码并发表评论吗？ 您可以调用此sub-routine将另存为文件。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FileNameVal As String
If SaveAsUI Then
    FileNameVal = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    Cancel = True
    If FileNameVal = "False" Then 'User pressed cancel
        Exit Sub
    End If
    Application.EnableEvents = False
        If Right(ThisWorkbook.Name, 5) <> ".xlsm" Then
            ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        Else
            ThisWorkbook.SaveAs Filename:=FileNameVal, FileFormat:=xlOpenXMLWorkbookMacroEnabled
        End If
    Application.EnableEvents = True
End If
End Sub

参考：