我使用了OnTime函数关闭文件后总是自动打开，求解决方案！

gkxt007 · 发表于 2020-7-13 23:23

我的excel中使用了下面的函数来触发定时复制命令AutoCopy(),但是文件关闭后会自动重新打开，关闭多次都是如此
Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:01:00"), "AutoCopy"

End Sub

后查阅资料后增加了下面这个关闭之前解除OnTime 的程序，但是不起作用

Private Sub Workbook_BeforeClose()

Application.OnTime Now + TimeValue("00:01:00"), Procedure:="AutoCopy", Schedule:=False

End Sub

求大师帮忙解决怎么才能解决自动重启文件的问题，非常感谢！

另外，如果哪位知道有其他定时函数可以取代OnTime来完成定时执行程序的功能也可以，求帮忙解决，万分感激！

gkxt007 · 发表于 2020-7-13 23:45

有知道怎么解决的吗？

gbgbxgb · 发表于 2020-7-14 02:52

本帖最后由 gbgbxgb 于 2020-7-14 09:45 编辑

gkxt007 发表于 2020-7-13 23:45
有知道怎么解决的吗？

很简单，之所以出现你所描述的情况，原因是你执行关闭工作簿的操作时并没有真正取消此前安排的命令计划，此Now+TimeValue()非彼Now+TimeValue()，若觉得这话拗口，难以理解，那就打个比喻吧：某人月黑风高夜行偷香窃玉，再一风高月黑夜又行窃玉偷香事，问：同为月黑风高，此徒行事同一天耶？

结论：两个Now()的时点显然不同，故你认为的被False的Schedule其实是不存在的，而早先Now()过的那个Schedule依然存在，它被Excel牢牢记着并忠实地到点执行。
解决方法：定义个变量（一般要全局变量，因为要定时执行的那个Sub过程通常放在标准模块，而WorkBook的Open事件和Close事件在ThisWorkbook模块，两个模块都要用到这个变量）存放指定执行的时间，往后就可以False这个变量对应的Schedule了。

真难以相信，废话说了一堆，不知说明白了没，还是上个附件吧。

定时自动复制.rar (5 KB, 下载次数: 23)

gkxt007 · 发表于 2020-7-14 13:40

非常感谢，问题解决了

		自动登录	找回密码
密码			免费注册

[求助] 我使用了OnTime函数关闭文件后总是自动打开，求解决方案！

最新热点 /1

[求助] 我使用了OnTime函数 关闭文件后总是自动打开，求解决方案！

最新热点 /1

[求助] 我使用了OnTime函数关闭文件后总是自动打开，求解决方案！