genes

¦^´_ 3# tracy1991621

¤U­±³o­Ó¨C¤ÀÄÁ§ó·s¤@¦¸

1. Sub RefreshData2()
   
2.     'A macro that runs itself every minute
   
3. 
   
4.     ThisWorkbook.UpdateLink Name:="C:\Clients\Wrox\Data.xls", Type:= _
   
5.                             xlExcelLinks
   
6.     mdteScheduledTime = Now + TimeSerial(0, 1, 0)
   
7.     Application.OnTime mdteScheduledTime, "RefreshData2"
   
8.     MsgBox "Data refreshed"
   
9.    
   
10. End Sub

½Æ»s¥N½X