excel - 如何将 VBA 错误 "Cannot saving ".xlsm"修复为 ".xlsx""？

Question

我在几家商店划分工作簿。

我选择了我想查看的商店，代码过滤了其他商店的数据并删除了该数据，只留下了所选商店的数据。

在此之后我想制作一个新的工作簿，将我的“.xlsm”文件保存为“.xlsx”

但是在运行代码后，我会弹出一条消息，询问我是否要“继续保存为无宏工作簿”

如果我点击是，我有一个错误说:

1004 VB Projects and XLM sheets cannot be saved in a macro-free workbook

我能做些什么来解决它？

这是保存新工作簿的代码:

Dim Fname As String

Fname = "02.VIM_REPORT MENSAL - " & Worksheets("aux").Range("V2") & " - " & Worksheets("aux").Range("V3") & ".xlsx"
ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlOpenXMLWorkbook

    ActiveWorkbook.Close False

Answer 1

将该代码行更改为:ActiveWorkbook.SaveAs Filename:=Fname, FileFormat:=xlWorkbookDefault