Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Using Application OnTime to Periodically Analyze Data

Sub ScheduleTheDay()     Application.OnTime EarliestTime:=TimeValue("8:00 AM"), Procedure:=CaptureData     Application.OnTime EarliestTime:=TimeValue("9:00 AM"), Procedure:=CaptureData End Sub Sub CaptureData()     Dim myWorksheet As Worksheet     Dim NextRow As Long     Set myWorksheet = Worksheets("Sheet1")     myWorksheet.range("A2").QueryTable.Refresh BackgroundQuery:=False     Application.Wait (Now + timeValue("0:00:10"))     NextRow = myWorksheet.cells(65536, 1).End(xlUp).row + 1     myWorksheet.range("A2:B2").copy myWorksheet.cells(NextRow, 1) End Sub