EXCEL 怎么用VBA实现每隔1分钟自动执行ctrl+s(保存)命令?
5个回答
展开全部
'程序开头声明一个:
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
'跑一个死循环,循环里面含一个
sleep(6000)
SendKeys ("^s")
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub 自动保存()
Dim NewTime
NewTime = Now + TimeValue("00:01:00")
ThisWorkbook.Save
Application.OnTime NewTime, "自动保存"
End Sub
Dim NewTime
NewTime = Now + TimeValue("00:01:00")
ThisWorkbook.Save
Application.OnTime NewTime, "自动保存"
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询