不保存自动关闭工作簿

ccb0606

ChDir "C:\Users\Administrator\Desktop"
    Workbooks.Open Filename:="C:\Users\Administrator\Desktop\1.xls"
    Cells.Select
    Selection.Copy
    Windows("2.xlsm").Activate
    Sheets("Sheet2").Select
    Cells.Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Workbooks("1.xls").Close SaveChanges:=False
sub end


麻烦各位老师帮我看下，为什么每次运行这个宏，都会提示：“剪切板上有大量内容，是否保存”！怎么取消这个提示？

liulang0808

Application.DisplayAlerts = False
增加这个看看是否可行

ccb0606

liulang0808 发表于 2018-6-10 18:15
Application.DisplayAlerts = False
增加这个看看是否可行

是把Close saveChanges:=false 改成Application.DisplayAlerts = False这个，还是在最后加上这个代码

liulang0808

ccb0606 发表于 2018-6-10 18:18
是把Close saveChanges:=false 改成Application.DisplayAlerts = False这个，还是在最后加上这个代码

加在代码前面

ccb0606

liulang0808 发表于 2018-6-10 18:19
加在代码前面

太感谢了，搞定了！我在VB这块是个小白，能不能再咨询个问题哦！
我想在网上共享/基础数据里面根据今天日期打开一个表格（例如今天，点击按钮自动复制网上共享/基础数据中的2018.6.10.xls这张表），整张表自动复制到2工作簿的数据表里面，并自动关闭6.10表.