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

cdkee

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

luhpro

回復 1# cdkee

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

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

cdkee

回復 2# luhpro


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

Hsieh

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

回復 4# Hsieh


    再感謝版大教導!
請教qy是怎樣定義?是否指Sheet2中的cells?謝謝!
附件中的例子，不成功，請版大指正，謝謝!
自動更新.rar (18.56 KB)

下載次數: 35

2010-10-12 17:20

Hsieh

將程式碼置於一般模組

下載 (38.51 KB)

2010-10-12 17:47

cdkee

回復 6# Hsieh


    成功了!感謝版大教授!

cdkee

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

cdkee

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

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

Hsieh

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