有關於撈股票Code問題 - Excel程式區

f3202

中學生 Rank: 2

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

17^# 跳轉到 »

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

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

TOP

afu9240

中學生 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

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

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

15^#

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

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

TOP

afu9240

中學生 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

TOP

iamaraymond

　暱稱: 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

TOP

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

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

12^#

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

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

TOP

iamaraymond

　暱稱: 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

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

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

10^#

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

回復 9# afu9240

即時的部分，我剛剛試是OK的

您圖片的錯誤應該是因為我是取A2到A4的股票代號，但您好像只有A2有值，才導致這個錯誤，所以應該簡單改一下迴圈即可解決

01我想應該是指mobile01吧?

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

TOP

afu9240

中學生 Rank: 2

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

9^#

發表於 2018-5-9 10:45 | 只看該作者

回復 8# quickfixer

不好意思01哪邊是指??????哪兒

yvonne

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 28
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-10-22

8^#

發表於 2018-5-9 08:56 | 只看該作者

本帖最後由 quickfixer 於 2018-5-9 09:03 編輯

.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Pragma", "no-cache"
.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send

抓即時資料,要改成這樣,01那邊有比較詳細的說明

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]