excel - 工作簿.save - "the following features cannot be saved in macro-free workbooks..."

Question

我的子程序在新的 Excel 实例中打开一个 .xlsm 文件，对文件进行更改，然后保存更改。

但是，尽管所打开的文件是 .xlsm，但在 workbook.save 时我收到警告消息“以下功能无法保存在无宏工作簿中...”

这对我来说没有意义，因为该文件是 .xlsm。有什么想法吗？

编辑:我相信我找到了问题的根源。尽管变量“path”包含 C:\file.xlsm，但 wkb.path 为空。 (参见下面的 Debug.print)。为什么 wkb.path 为空？

    Set XL = New Excel.Application
    XL.Visible = False

    For Each Path In XLSMPaths

        Set wkb = XL.Workbooks.Add(Path)

        Debug.Print Path      ' "C:\file.xlsm" 
        Debug.Print wkb.path  ' ""
        Debug.print wkb.name  ' "file"      

        wkb.Save   '<- alert message "The following features cannot be saved in macro-free workbooks..."

    Next Path

Answer 1

默认情况下，.save 方法会将文件保存为 .xls 或 .xlsx(取决于您的 Excel 版本)，您需要使用 .saveas 强制执行此操作

wkb.SaveAs Filename:=MyNewPathFilename, FileFormat:=xlOpenXMLWorkbookMacroEnabled

显然将变量“MyNewPathFilename”更改为您想要将文件保存为的任何内容，可能想要获取路径并检查它以.xlsm结尾，然后将其传递到此变量中