Question

vba中如何用代码实现关闭“无法在未启用宏的工作簿中保存以下功能：”的警告

用excel2010编了段程序生成另一个.xlsx文件，但总是提示“无法在未启用宏的工作簿中保存一下功能：”，具体用的代码是：Visual Basic codeactiveworkbook.saveas filename:="1.xlsx"点了“是”才能继续有没有办法在代码中关闭这个警告，默认选“是”？

Answer 1

你的思路有问题，既然是新生成另外一个工作簿，那你应该直接
workbooks.add
然后再操作新的工作。

或者使用wroksheets("xxx").copy把工作表复制新的工作簿。
另存的话，只能这样。
另外，application.displayalerts=false可以不显示提示。

追问

生成的文件是以当前日期为文件名的，workbooks.add不能指定生成的文件名，所以我才用了activeworkbook.saveas filename:=thisworkbook.path&"\"&day(now)&".xlsx"
这样运行是正常的，唯一问题就是会弹出那个警告，还有其他方法么？

追答

workbook.add
set wb=activeworkbook
with wb
.saveas
end with
=.=有区别么？

貌似，你的问题在于设置文件名的顺序上
dim str as string
str=thisworkbook.path&"\"&day(now)&".xlsx"
workbook.add
set wb=activeworkbook
with wb
.saveas filename:=str
end with
用thisworkbook的话， 上下两段代码结果应该一样的。

追问

初学vba很多都还不懂，application.displayalerts=false这句很好用，把问题解决了，非常感谢！！！