Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Use OnTime to trigger the refresh data

Sub RunOnTime()          Application.OnTime Date + TimeSerial(15, 0, 0), "RefreshData"      End Sub                 Sub RefreshData()          ThisWorkbook.UpdateLink Name:="C:\YourExcel2007File.xlsx", Type:=xlExcelLinks      End Sub