返回列表 上一主題 發帖

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

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

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題