12
返回列表 上一主題 發帖

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

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
7# 跳轉到 »
發表於 2010-10-12 18:06 | 只看該作者
回復 6# Hsieh


    成功了!感謝版大教授!

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2010-10-12 17:47 | 只看該作者
將程式碼置於一般模組
學海無涯_不恥下問

TOP

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
5#
發表於 2010-10-12 16:51 | 只看該作者
本帖最後由 cdkee 於 2010-10-12 17:21 編輯

回復 4# Hsieh


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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

cdkee

帖子
185 
主題
47 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-11-19 
3#
發表於 2010-10-12 12:09 | 只看該作者
回復 2# luhpro


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

TOP

luhpro

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

        靜思自在 : 時時好心就是時時好日。
12
返回列表 上一主題