访问VBA代码执行在特定时间间隔后停止并重新启动

Question

目前，我正在为url navigation运行Access VBA。现在我想在一段时间后停止VBA，然后在一段时间后重新启动。 即。想要停下来 首次VBA开始时间+4小时 然后想要重新启动VBA VBA停止时间+ 5分钟。

基本上我想在每四个小时后停止VBA，然后在5分钟的时间间隔后重启VBA。我想在4小时后开始并停止执行下面提到的代码，然后在5分钟后重新启动。谢谢。

Private Sub getdata()

 Dim Ie As New InternetExplorer
 Dim WebURL
 Dim Docx As HTMLDocument
 Dim productDesc
 Dim productTitle
 Dim price
 Dim RcdNum

Ie.Visible = False


WebURL = "http://www.ebay.com/itm/Polarized-sunglasses-Mens-Driving-glasses-Aviator-outdoor-Sports-UV400-Eyewear-/252063564211?var=&hash=item3ab028c1b3:m:mYPFr4la1j-kJkrA9w_oxDw"
 Ie.Navigate2 WebURL
 Do Until Ie.ReadyState = READYSTATE_COMPLETE
 DoEvents
 Loop
 Set Docx = Ie.Document

 productDesc1 = Docx.getElementsBytagName("title")

End Sub

Answer 1

要在特定时间开始，您应安排流程在特定时间运行。使用Application.OnTime TimeValue("18:00:00"), "MyMacro"

，如http://p2p.wrox.com/excel-vba/71210-schedule-vba-macro-run-specific-time.html

并且只停止create和if子句来检查它当前的时间。