Board logo

標題: 從Web取得外部資料的自動更新時間 [打印本頁]
作者: cdkee    時間: 2010-10-11 20:27     標題: 從Web取得外部資料的自動更新時間

表單中最快的選擇，只有1分鐘自動更新1次，請問如何做到20秒或更快自動更新1次?
再謝謝大大!
作者: luhpro    時間: 2010-10-11 21:39

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

回復 1# cdkee

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

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

回復 2# luhpro


    謝謝大大指導!
如果只是每20秒自動更新Sheet2，應該怎樣寫?謝謝!
作者: Hsieh    時間: 2010-10-12 14:05

回復 3# cdkee
  1. Sub auto_open()
  2.     For Each qy In Sheet2.QueryTables
  3.     qy.Refresh BackgroundQuery:=False
  4.     Next
  5. Application.OnTime Now + TimeValue("00:00:20"), "auto_open"
  6. End Sub
複製代碼
作者: cdkee    時間: 2010-10-12 16:51

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

回復 4# Hsieh


    再感謝版大教導!
請教qy是怎樣定義?是否指Sheet2中的cells?謝謝!
附件中的例子，不成功，請版大指正，謝謝!
[attach]3135[/attach]
作者: Hsieh    時間: 2010-10-12 17:47

將程式碼置於一般模組[attach]3136[/attach]
作者: cdkee    時間: 2010-10-12 18:06

回復 6# Hsieh


    成功了!感謝版大教授!
作者: cdkee    時間: 2010-10-12 18:51

再請教版大，只更新某幾個CELLS(例如:B5至C7及D11)，應該怎樣寫，謝謝教授!
作者: cdkee    時間: 2010-10-13 19:31

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



    小輩無知，是否與更新1個WORKSHEET沒有明顯差別?但也想學習更新某幾個CELLS，應該怎樣寫，謝謝版大教授!
作者: Hsieh    時間: 2010-10-13 19:48

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

回復 10# Hsieh


    小輩再感謝版大教授!
作者: humanbondage    時間: 2010-11-11 23:26

此篇讓小弟受益良多,先謝謝各位高手了
作者: b4069588    時間: 2010-12-20 21:43

嗯    又學到了   謝謝教授
作者: bojiun    時間: 2011-8-8 06:49

受益良多
一直以來都是用
Sheets("a").Range("A1").QueryTable.Refresh BackgroundQuery:=False
Sheets("b").Range("A1").QueryTable.Refresh BackgroundQuery:=False
Sheets("c").Range("A1").QueryTable.Refresh BackgroundQuery:=False
Application.OnTime Now() + TimeValue("00:00:10"), "更新"

然後就常常在"錯誤1004，背景正在更新中"
可否請教是否用了版主的寫法就可避免上述錯誤呢??
作者: disnep    時間: 2011-11-4 20:35

感謝版大大, 也剛好有此問題~
作者: GBKEE    時間: 2011-11-5 07:40

回復 15# disnep
14樓的程式碼,執行上是沒問題的,因沒附上檔案除錯,所以沒人回覆.
你須附上檔案看看



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