有關於撈股票Code問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有關於撈股票Code問題

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

[發問] 有關於撈股票Code問題

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

11^# 跳轉到 »

發表於 2018-5-9 11:51 | 只看該作者

回復 9# afu9240

啊我知道您的意思了
因為在用這方法抓資料時，他會有一個像是"記憶"的功能(確切的專有名詞我不太清楚)
也就是說若發送的是同一個request，那他就會拿到跟上次一樣的資料(這也是為什麼當你在執行第二次、第三次程式時，他會執行的超快)
所以解決方式就是"讓他發送不一樣的request"
例如在參數多加一個timer，每次發送的時候他就會以為是不一樣的request了，但實際上這個timer並不會影響到你抓到的資料
感謝您又讓我上了寶貴的一課

Sub test()
Dim myXML As Object
Set myXML = CreateObject("Microsoft.XMLHTTP")
Dim myHTML As Object
Set myHTML = CreateObject("HTMLFile")
i = 2
With myXML
For Each stockNo In Range("A2:A4").Value
.Open "GET", "https://tw.stock.yahoo.com/q/q?t=" & Timer & "&s=" & stockNo, False
.send
myHTML.body.innerHTML = .responseText
Set myTable = myHTML.getElementsByTagName("table")(6)
For j = 1 To 10
Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
Next
i = i + 1
Next
End With
Set myXML = Nothing
Set myHTML = Nothing
End Sub

複製代碼

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

12^#

發表於 2018-5-9 20:51 | 只看該作者

http://forum.twbts.com/thread-20755-1-1.html
自創的送你使用不用客氣

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

13^#

發表於 2018-5-10 16:09 | 只看該作者

回復 9# afu9240

所以...請問最後有解決您的問題嗎?

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

14^#

發表於 2018-5-10 19:43 | 只看該作者

回復 13# iamaraymond

非常感謝i大的協助。。可以work了。。真的太感謝了

yvonne

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

15^#

發表於 2018-6-3 14:47 | 只看該作者

http://forum.twbts.com/thread-20755-1-1.html

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

16^#

發表於 2018-11-28 14:36 | 只看該作者

回復 11# iamaraymond

i 大你好,想請教一下附件是您之前提供給我的code

新壓縮 (zipped) 資料夾.zip (15.03 KB) ,之前這個code都能正常運作,請問現在無法work..變數及with都有設定,為何還是有問題呢~~求協助

yvonne

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-4-19

17^#

發表於 2018-11-29 10:15 | 只看該作者

Set myTable = myHTML.getElementsByTagName("table")(6)
改成
Set myTable = myHTML.getElementsByTagName("table")(5)

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

18^#

發表於 2018-11-29 11:08 | 只看該作者

回復 17# f3202

f大好厲害真的非常感謝您的回覆~~tks*100000

f大請問(6)跟(5)是差在哪裡啊??可以解惑一下嗎??? 感謝高手

yvonne

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 79
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

19^#

發表於 2018-11-30 07:44 | 只看該作者

回復 18# afu9240

"https://tw.stock.yahoo.com/q/q?t=" & Timer & "&s=" & stockNo"
這個網頁改版了，資料表從第6改到第5

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

20^#

發表於 2018-11-30 08:44 | 只看該作者

回復 19# Scott090

原來如此~謝謝

yvonne

靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。

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