如何修改Excel 2007的代码以使用SaveAs

问题描述

| 我有一个使用宏来保存文件的excel模板，以便用户维护标准化的文件名格式。我使用Excel 2003创建了代码。代码如下：

Sub SaveBook()
   Dim sFile As String
   sFile = \"ConsolidatedDemand\" & \"_\" & Format(Now(),\"yyyy.mm.dd\") & \".xls\"
   ActiveWorkbook.SaveAs Filename:= \"\\\\file location\\\" & sFile
End Sub

我有一个使用Excel 2007的用户。当他们尝试运行宏时，他们收到一个错误： \“以下功能不能保存在无宏的工作簿中：VB项目。 若要保存具有这些功能的文件，请单击“否”，然后在文件类型列表中选择启用宏的文件类型。要继续保存为无宏工作簿，请单击“是” 我尝试在第二行代码中将文件扩展名移至\“。xlsm \”，但这产生了相同的错误消息。关于如何修改此代码以使其适用于Excel 2007用户的任何其他想法？     

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）