標題: [發問] 如何使用 VBA 每秒更新連結數據 [打印本頁]

---

作者: msmplay    時間: 2016-12-21 20:41     標題: VBA 每秒更新連結數據

[attach]26141[/attach]


說明:
「更新檔」A1='Z:\共用資料夾\[資料來源.xls]工作表1'!$A$2

請問該如何使用VBA達到以下效果：
1. 希望「更新檔」A1可以每秒自動更新資料連結，以達到數據即時更新效果
2. 即便沒有進行任何動作(存檔、編輯資料)，資料來源檔如果數據有任何變動時，A1數據也會隨時更新(每秒)


[attach]26140[/attach]

---

作者: msmplay    時間: 2016-12-27 22:39     標題: 如何使用 VBA 每秒更新連結數據

[attach]26235[/attach]

說明:
「更新檔」A1='Z:\共用資料夾\[資料來源.xls]工作表1'!$A$2

請問該如何使用VBA達到以下效果：
1. 希望「更新檔」A1可以每秒自動更新資料連結，以達到數據即時更新效果
2. 即便沒有進行任何動作(存檔、編輯資料)，資料來源檔如果數據有任何變動時，A1數據也會隨時更新(每秒)


[attach]26236[/attach]

---

作者: GBKEE    時間: 2016-12-28 08:24

回復 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

複製代碼

---

作者: msmplay    時間: 2017-1-1 16:53

回復 3# GBKEE


   謝謝G大~~~~~~~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)