[已解决]这个定时不保存自动关闭的代码要怎么改？

陈小林

这个定时不保存自动关闭的代码要怎么改，才能打开其它工作簿？

Private Sub Workbook_Open()
Dim ot As Date '定义旧时间数据类型变量
Dim nt As Date '定义最新时间数据类型变量
ot = Time '获取现在时间(老)
Do
DoEvents
nt = Time '获取现在时间(新)
If DateDiff("s", ot, nt) = 30 Then
'比较时间,既已经过去的时间,这里是30秒即0.5分钟
ot = nt
nt = Empty '还原时间变量(循环)
ThisWorkbook.Close (0) '条件成立保存并关闭excel
End If
Loop
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2014-8-3 18:15

Book2.rar (4.87 KB, 下载次数: 9)

2014-8-3 18:15 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

Book2.rar (4.87 KB, 下载次数: 9)

2014-8-3 18:15 上传

点击文件名下载附件

陈小林

zjdh 发表于 2014-8-3 18:15

正是我要的效果。太感谢！