cdkee

帖子: 187
主題: 52
精華: 0
積分: 230
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2026-9-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-11 20:27 | 只看該作者

從Web取得外部資料的自動更新時間

表單中最快的選擇，只有1分鐘自動更新1次，請問如何做到20秒或更快自動更新1次?
再謝謝大大!

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2010-10-11 21:39 | 只看該作者

本帖最後由 luhpro 於 2010-10-11 21:43 編輯

回復 1# cdkee

這一篇內有你想要的答案 :
[發問] 請問如何將以連接EXCEL的DDE數據每分鐘紀錄下來？
只要將時、分部分都設成 "0" ,再調整秒數那部分的數字就可以了.
TimeSerial(Hour(Time), Minute(Time), 0) <- 後面那個 ",0" 單位就是秒.

另外更新的時間單位較小時, (例如每數秒更新一次之類的)
要請留意每一階段更新資料的程式段落,
其執行時間是否會超過每階段更新作業的執行秒數,
以避免發生程式永遠執行不完或是系統資源不足的情形出現.

TOP

cdkee

中學生 Rank: 2

帖子: 187
主題: 52
精華: 0
積分: 230
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2026-9-27

3^#

發表於 2010-10-12 12:09 | 只看該作者

回復 2# luhpro

謝謝大大指導!
如果只是每20秒自動更新Sheet2，應該怎樣寫?謝謝!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-10-12 14:05 | 只看該作者

回復 3# cdkee

Sub auto_open()
For Each qy In Sheet2.QueryTables
qy.Refresh BackgroundQuery:=False
Next
Application.OnTime Now + TimeValue("00:00:20"), "auto_open"
End Sub

複製代碼

學海無涯_不恥下問

TOP

cdkee

中學生 Rank: 2

帖子: 187
主題: 52
精華: 0
積分: 230
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2026-9-27

5^#

發表於 2010-10-12 16:51 | 只看該作者

本帖最後由 cdkee 於 2010-10-12 17:21 編輯

回復 4# Hsieh

再感謝版大教導!
請教qy是怎樣定義?是否指Sheet2中的cells?謝謝!
附件中的例子，不成功，請版大指正，謝謝!

自動更新.rar (18.56 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-10-12 17:47 | 只看該作者

將程式碼置於一般模組

學海無涯_不恥下問

TOP

cdkee

中學生 Rank: 2

帖子: 187
主題: 52
精華: 0
積分: 230
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2026-9-27

7^#

發表於 2010-10-12 18:06 | 只看該作者

回復 6# Hsieh

成功了!感謝版大教授!

TOP

cdkee

中學生 Rank: 2

帖子: 187
主題: 52
精華: 0
積分: 230
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2026-9-27

8^#

發表於 2010-10-12 18:51 | 只看該作者

再請教版大，只更新某幾個CELLS(例如:B5至C7及D11)，應該怎樣寫，謝謝教授!

TOP

cdkee

中學生 Rank: 2

帖子: 187
主題: 52
精華: 0
積分: 230
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2026-9-27

9^#

發表於 2010-10-13 19:31 | 只看該作者

本帖最後由 cdkee 於 2010-10-13 19:32 編輯

再請教版大，只更新某幾個CELLS(例如:B5至C7及D11)，應該怎樣寫，謝謝教授!
cdkee 發表於 2010-10-12 18:51

小輩無知，是否與更新1個WORKSHEET沒有明顯差別?但也想學習更新某幾個CELLS，應該怎樣寫，謝謝版大教授!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2010-10-13 19:48 | 只看該作者

你的檔案並非B5至C7及D11中儲存各別查詢
同一查詢即會全部內容更新
若是你的查詢是多個存在於不同儲存格
那就是
For Each A In [B5:C7,D11]
A.QueryTable.Refresh
Next

學海無涯_不恥下問

TOP