保存工作簿

Question

所以想把当前notebook保存在指定路径下，根据日期动态命名，我的代码如下

Dim today As String

today = Date
today = Replace(today, "/", ".")

ActiveWorkbook.SaveAs Filename:= _
"D:\CE\PE tracker " & today & ".xlsm"

但它返回一个错误 -

VB 项目和 XLM 工作表不能保存在无宏的工作簿中。

Answer 1

声明某些内容应该保存为.xlsm不足以让 excel 正确识别文件格式。 正如@braX 所说，文件格式是SaveAs方法的（可选）命名参数。 如果这与当前文件格式不同，则需要指定，否则 Excel 将尝试将其另存为当前文件格式并仅在文件名中提供.xlsm扩展名，这通常会导致损坏文件。 完整代码：

Sub saveas()
Dim today As String

today = Date
today = Replace(today, "/", ".")

ActiveWorkbook.saveas Filename:="D:\CE\PE tracker " & today & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

按照@Teamothy 的建议使用Application.Displayalerts = False时也要小心。 虽然它有非常有效的用途，但这不是其中之一，在上面的代码中使用它会在不解决它的情况下关闭警报，因此SaveAs操作将不会完成，您的文件也不会被保存。