iamaraymond

回復 9# afu9240

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

1. Sub test()
   
2. 
   
3. Dim myXML As Object
   
4. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
5. 
   
6. Dim myHTML As Object
   
7. Set myHTML = CreateObject("HTMLFile")
   
8. 
   
9. 
   
10. i = 2
    
11. With myXML
    
12.     For Each stockNo In Range("A2:A4").Value
    
13.         .Open "GET", "https://tw.stock.yahoo.com/q/q?t=" & Timer & "&s=" & stockNo, False
    
14.         .send
    
15.    
    
16.         myHTML.body.innerHTML = .responseText
    
17.         
    
18.         Set myTable = myHTML.getElementsByTagName("table")(6)
    
19.         
    
20.         For j = 1 To 10
    
21.             Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
    
22.         Next
    
23.         
    
24.         i = i + 1
    
25.     Next
    
26. End With
    
27. 
    
28. Set myXML = Nothing
    
29. Set myHTML = Nothing
    
30. 
    
31. End Sub

複製代碼

zheng211016

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

iamaraymond

回復 9# afu9240

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

afu9240

回復 13# iamaraymond


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

zheng211016

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

afu9240

回復 11# iamaraymond


    i 大你好,想請教一下附件是您之前提供給我的code 新壓縮 (zipped) 資料夾.zip (15.03 KB)

下載次數: 7

2018-11-28 14:36

,之前這個code都能正常運作,請問現在無法work..變數及with都有設定,為何還是有問題呢~~求協助

f3202

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

afu9240

回復 17# f3202

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

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

Scott090

回復 18# afu9240


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

afu9240

回復 19# Scott090


    原來如此~謝謝