Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3331|回复: 5

[已解决]退出excel并且不保存

[复制链接]
发表于 2016-5-24 20:46 | 显示全部楼层 |阅读模式
各路大神好

本来之前设计的模板里面涉及到关闭工作簿并且不保存,我上网查了一下应该是
Workbooks(“XXX”).Close savechanges = False


但是后来发现中间那些我希望关闭不保存的其他文件都被保存了
于是我又写了个简单的,结果发现当我写savechanges = false的时候文件还是保存了,反而是写savechanges = True的时候,文件没有保存退出了,请问这是为什么呢,百思不得其解。

求救求救

以下是亲测退出但是没有保存的按钮代码
Private Sub CommandButton1_Click()
Range("a1").ClearContents
Range("a1").Value = 999999999
ThisWorkbook.Close savechanges = True
End Sub

最佳答案
2016-5-24 21:19
Sub Click()
    Range("a1").Value = InputBox("输入点什么")
    ThisWorkbook.Close savechanges:=True
End Sub
savechanges.rar (8.56 KB, 下载次数: 9)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-5-24 21:19 | 显示全部楼层    本楼为最佳答案   
Sub Click()
    Range("a1").Value = InputBox("输入点什么")
    ThisWorkbook.Close savechanges:=True
End Sub
savechanges.rar (8.56 KB, 下载次数: 9)
回复

使用道具 举报

 楼主| 发表于 2016-5-24 22:14 | 显示全部楼层
爱疯 发表于 2016-5-24 21:19
Sub Click()
    Range("a1").Value = InputBox("输入点什么")
    ThisWorkbook.Close savechanges:=Tru ...

原来如此,被自己蠢哭 T T
回复

使用道具 举报

发表于 2016-5-24 22:21 | 显示全部楼层
shinygost 发表于 2016-5-24 22:14
原来如此,被自己蠢哭 T T

我也曾经过
回复

使用道具 举报

发表于 2016-5-26 08:55 | 显示全部楼层
学习了!!!
回复

使用道具 举报

发表于 2016-5-26 10:25 | 显示全部楼层
本帖最后由 zjdh 于 2016-5-26 10:27 编辑

不保存退出,我一般写成
ThisWorkbook.Close False


ThisWorkbook.Saved = True
用在BeforeClose事件
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 03:46 , Processed in 0.657194 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表