每十秒自动保存工作薄
来源:百度文库 编辑:神马文学网 时间:2024/04/28 14:54:16
Sub dosth() '每十秒自动保存工作薄
Dim oldtime As Date
Dim newtime As Date
oldtime = Time
Do
DoEvents
newtime = Time
If DateDiff("s", oldtime, newtime) = 10 Then
oldtime = newtime
newtime = Empty
ThisWorkbook.Save
End If
Loop
End Sub
Dim oldtime As Date
Dim newtime As Date
oldtime = Time
Do
DoEvents
newtime = Time
If DateDiff("s", oldtime, newtime) = 10 Then
oldtime = newtime
newtime = Empty
ThisWorkbook.Save
End If
Loop
End Sub
每十秒自动保存工作薄
自动保存EXCELL表格
自动保存EXCELL表格
生活秒招,刻保存
每 秒 摆 一 下
让FckEditor具有自动保存功能
Windows系统自动保存密码再现(组图)
Windows系统自动保存密码再现(组图)
Word入门动画教程17:文档自动保存
Word入门动画教程17:文档自动保存
电池十秒充电
巧用凯立德LOADER解决背光自动恢复10秒的Bug
每口食物咀嚼30秒能防病又抗癌!
中国每30秒诞生一名缺陷婴儿
中国每30秒出生一名缺陷婴儿
我国每30秒出生一名缺陷婴儿
岁月如歌 AutoSaveText Script_自动保存文本
如何清除网页上自动保存的登陆密码?
如何清除网页上自动保存的登陆密码?
如何清除网页上自动保存的登陆密码?
系统时间自动校对 让你准时每一天 --- 微软
自动挡车 - 快乐生活每一天 - 焦点房地产 - 搜狐圈子
保存excel表格提示本工作薄不能使用其他新字体
如何培养部属自动自发工作精神