msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-12-27 22:39 | 只看該作者

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

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

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

測試.rar (6.89 KB)

樓主熱帖

*宅女一枚無誤*

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

4^#

發表於 2017-1-1 16:53 | 只看該作者

回復 3# GBKEE

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

*宅女一枚無誤*

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2016-12-28 08:24 | 只看該作者

回復 2# msmplay

更新檔 ThisWorkbook模組的程式碼

Option Explicit
Dim Ex_Msg As Boolean
Private Sub Workbook_Open()
Ex
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ex_Msg = True
End Sub
Sub Ex()
Dim xSecond As Integer
ThisWorkbook.UpdateLink Name:="Z:\共用資料夾\資料來源.xls", Type:=xlExcelLinks '更新數值
'** 如來源檔的數值有改變但沒有存檔, 更新數值的動作是沒用的
xSecond = Second(Time) '秒數
Do
DoEvents
If Second(Time) > xSecond Then
ThisWorkbook.UpdateLink Name:="Z:\共用資料夾\資料來源.xls", Type:=xlExcelLinks
xSecond = Second(Time) '新的秒數
End If
Loop Until Ex_Msg
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

msmplay

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

2^#

發表於 2016-12-21 20:41 | 只看該作者

VBA 每秒更新連結數據

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

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

測試.rar (6.89 KB)

*宅女一枚無誤*

TOP