麻辣家族討論版版 » Excel程式區 » CreateObject("MSXML2.XMLHTTP.3.0") 無法抓取最新資料?

返回列表下一主題上一主題發帖

[發問] CreateObject("MSXML2.XMLHTTP.3.0") 無法抓取最新資料?

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-2-22 15:37 | 顯示全部帖子

[發問] CreateObject("MSXML2.XMLHTTP.3.0") 無法抓取最新資料?

如下程式碼:為何網站資料更新了
但擷取出來的結果卻不會自動更新呢
十分鐘後再執行一次還是跟第一次執行的結果相同
請問要如何更新?

Sub test()
Set hq = CreateObject("MSXML2.XMLHTTP.3.0")
hq.Open "get", "http://rate.bot.com.tw/xrt/flcsv/0/day", False
hq.send
MsgBox hq.responsetext
End Sub

複製代碼

樓主熱帖

收藏

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-3-1 13:55 | 顯示全部帖子

回復 3# GBKEE

感謝超版大大,小弟拜讀一下

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-3-3 12:35 | 顯示全部帖子

回復 6# jackyq

如何換個寫法可變更?
因為我用原本的方法套用不同的網站資料
確實不會更新,電腦重開才會更新不知道為何

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-3-3 12:40 | 顯示全部帖子

回復 7# GBKEE

感謝超版大大,原來自動更新可以這樣使用
我一直都是只會用下列方式自動多久執行一次

ts2 = Now + TimeValue("00:05:00")
'執行完畢後設定5分鐘過後再次執行本程式
Application.OnTime ts2, "control_time2"

複製代碼

您的方式簡單多了
配合SHEET變動一起搭配程式碼即可

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2017-5-8 20:13 | 顯示全部帖子

回復 6# jackyq

請問大大您是如何換個寫法就可以更新了呢?
我測試還是無法更新耶
必須要檔案重新打開才會更新~

PKKO

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

返回列表下一主題上一主題