我写了一个宏,它使用API从网站提取数据以获得当前价格。我希望每10分钟自动运行一次,以便大致了解实时价格。
我尝试使用以下方法执行此操作:
Sub Test()
Application.OnTime Now + TimeValue("00:10:00"), "MyMacro"
End Sub
然而它似乎没有工作...我是新的让自动运行潜艇因此可能忽略了一些东西。
谢谢你的帮助。
可能发生的是您正在安排宏只运行一次。您需要进行设置,以便在第一次之后重新安排自己:
Sub Schedule()
Application.OnTime Now + TimeValue("00:10:00"), "MyMacro"
End Sub
Sub MyMacro()
Schedule ' (Reschedule at the top to run every 10 minutes)
'Do something...
'(Or reschedule at the bottom to run 10 minutes *after* the execution)
End Sub