返回列表 上一主題 發帖

[發問] 如何使用 VBA 每秒更新連結數據

VBA 每秒更新連結數據

擷取.PNG
2016-12-21 20:41



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

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


測試.rar (6.89 KB)
*宅女一枚無誤*
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

[發問] 如何使用 VBA 每秒更新連結數據

擷取.PNG
2016-12-27 22:39


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

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


測試.rar (6.89 KB)
*宅女一枚無誤*

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 3# GBKEE


   謝謝G大~~~~~~~~
*宅女一枚無誤*
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題