用excel2010编了段程序生成另一个.xlsx文件,但总是提示“无法在未启用宏的工作簿中保存一下功能:”,具体用的代码是:Visual Basic codeactiveworkbook.saveas filename:="1.xlsx"点了“是”才能继续有没有办法在代码中关闭这个警告,默认选“是”?
你的思路有问题,既然是新生成另外一个工作簿,那你应该直接
workbooks.add
然后再操作新的工作。
或者使用wroksheets("xxx").copy把工作表复制新的工作簿。
另存的话,只能这样。
另外,application.displayalerts=false可以不显示提示。追问
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这句很好用,把问题解决了,非常感谢!!!
温馨提示:答案为网友推荐,仅供参考