Question

我正在将工作簿划分为几个商店。

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

然后我要制作一个新的工作簿，将“ .xlsm”文件另存为“ .xlsx”

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

如果我单击“是”，则会出现错误提示：

1004 VB项目和XLM工作表无法保存在无宏的环境中工作簿

我该如何解决？

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

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

Answer 2

仅禁用警报。

尝试

GameEngine

祝你好运

如何修复VBA错误“无法将“ .xlsm”保存为“ .xlsx”“？

2 个答案: