GBKEE

回復 2# msmplay

更新檔 ThisWorkbook模組的程式碼

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    '更新數值
    
12.     '** 如來源檔的數值有改變但沒有存檔, 更新數值的動作是沒用的
    
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) '新的秒數
    
20.         End If
    
21.     Loop Until Ex_Msg
    
22. End Sub

複製代碼