http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FApplication%2FApplication_OnTime
VBA/Excel/Access/Word/Application/Application OnTime - История изменений
2026-04-06T00:11:49Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/Application_OnTime&diff=1090&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/Application_OnTime&diff=1091&oldid=prev
Admin: 1 версия
2010-05-26T12:46:19Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==If you want to keep refreshing the data on a regular basis, you can make the macro run itself==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Dim mdteScheduledTime As Date<br />
Sub RefreshData()<br />
ThisWorkbook.UpdateLink Name:="C:\YourExcel2007File.xlsx", Type:= xlExcelLinks<br />
mdteScheduledTime = Now + TimeSerial(0, 1, 0)<br />
Application.OnTime mdteScheduledTime, "RefreshData"<br />
End Sub<br />
Sub StopRefresh()<br />
Application.OnTime mdteScheduledTime, "RefreshData",, False<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Run on time==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub RunOnTime()<br />
Application.OnTime Date + TimeSerial(15, 0, 0), "RefreshData"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Scheduling a Macro to Run Every Two Minutes==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ScheduleAnything()<br />
WaitHours = 0<br />
WaitMin = 2<br />
WaitSec = 0<br />
NameOfThisProcedure = "ScheduleAnything"<br />
NameOfScheduledProc = "RemindMe"<br />
NextTime = Time + TimeSerial(WaitHours, WaitMin, WaitSec)<br />
Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfThisProcedure<br />
Application.Run NameOfScheduledProc<br />
End Sub<br />
Sub RemindMe()<br />
Application.Speech.Speak Text:="meeting."<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Set Refresh Data Timer==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub RunOnTime()<br />
Application.OnTime (Date + TimeSerial(10, 47, 0)), "RefreshData1"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==The OnTime event==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub SetAlarm()<br />
Application.OnTime 0.625, "DisplayAlarm"<br />
End Sub<br />
Sub DisplayAlarm()<br />
Beep<br />
MsgBox "Wake up. It"s time for your afternoon break!"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use OnTime to trigger the refresh data==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub RunOnTime()<br />
Application.OnTime Date + TimeSerial(15, 0, 0), "RefreshData"<br />
End Sub<br />
<br />
Sub RefreshData()<br />
ThisWorkbook.UpdateLink Name:="C:\YourExcel2007File.xlsx", Type:=xlExcelLinks<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Using Application.OnTime to Periodically Analyze Data==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ScheduleTheDay()<br />
Application.OnTime EarliestTime:=TimeValue("8:00 AM"), Procedure:=CaptureData<br />
Application.OnTime EarliestTime:=TimeValue("9:00 AM"), Procedure:=CaptureData<br />
End Sub<br />
Sub CaptureData()<br />
Dim myWorksheet As Worksheet<br />
Dim NextRow As Long<br />
Set myWorksheet = Worksheets("Sheet1")<br />
myWorksheet.range("A2").QueryTable.Refresh BackgroundQuery:=False<br />
Application.Wait (Now + timeValue("0:00:10"))<br />
NextRow = myWorksheet.cells(65536, 1).End(xlUp).row + 1<br />
myWorksheet.range("A2:B2").copy myWorksheet.cells(NextRow, 1)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==writes the time to cell A1 and also programs another event five seconds later.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Dim NextTick As Date<br />
Sub UpdateClock()<br />
ThisWorkbook.Sheets(1).Range("A1") = Time<br />
NextTick = Now + TimeValue("00:00:05")<br />
Application.OnTime NextTick, "UpdateClock"<br />
End Sub<br />
Sub StopClock()<br />
On Error Resume Next<br />
Application.OnTime NextTick, "UpdateClock", , False<br />
End Sub<br />
</source></div>
Admin