GBKEE

¦^´_ 2# msmplay

§ó·sÀÉ ThisWorkbook¼Ò²Õªºµ{¦¡½X

1. Option Explicit
   
2. Dim Ex_Msg As Boolean
   
3. Private Sub Workbook_Open()
   
4.     Ex
   
5. End Sub
   
6. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
7.     Ex_Msg = True
   
8. End Sub
   
9. Sub Ex()
   
10.     Dim xSecond As Integer
    
11.     ThisWorkbook.UpdateLink Name:="Z:\¦@¥Î¸ê®Æ§¨\¸ê®Æ¨Ó·½.xls", Type:=xlExcelLinks    '§ó·s¼Æ­È
    
12.     '** ¦p¨Ó·½Àɪº¼Æ­È¦³§ïÅܦý¨S¦³¦sÀÉ, §ó·s¼Æ­Èªº°Ê§@¬O¨S¥Îªº
    
13.    
    
14.     xSecond = Second(Time)   '¬í¼Æ
    
15.     Do
    
16.         DoEvents
    
17.         If Second(Time) > xSecond Then
    
18.             ThisWorkbook.UpdateLink Name:="Z:\¦@¥Î¸ê®Æ§¨\¸ê®Æ¨Ó·½.xls", Type:=xlExcelLinks
    
19.             xSecond = Second(Time) '·sªº¬í¼Æ
    
20.         End If
    
21.     Loop Until Ex_Msg
    
22. End Sub

½Æ»s¥N½X