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

afu9240

各位高手與大大 好
  
                   可否協助解決附件檔案,本來擷取奇摩網站的股票數據,不知為什麻這禮拜Code好像出了什麻問題,資料撈不進來,我認為 我這個code算即時的
            還是有大大可提供其他的方式,另求其解!!!感謝幫忙 感恩不盡

奇摩網站撈股票.zip (37.14 KB)

下載次數: 23

2018-5-7 13:33

iamaraymond

回復 1# afu9240
所以您要的資料是:
時間、成交、賣進、賣出、漲跌、張數、昨收、開盤、最高、最低嗎?

afu9240

回復 2# iamaraymond


    是的 大大,可以提供嗎???感恩

iamaraymond

回復 3# afu9240

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. i = 2
   
10. With myXML
    
11.     For Each stockNo In Range("A2:A4").Value
    
12.         .Open "GET", "https://tw.stock.yahoo.com/q/q?s=" & stockNo, False
    
13.         .send
    
14.    
    
15.         myHTML.body.innerHTML = .responseText
    
16.         
    
17.         Set myTable = myHTML.getElementsByTagName("table")(6)
    
18.         
    
19.         For j = 1 To 10
    
20.             Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
    
21.         Next
    
22.         
    
23.         i = i + 1
    
24.     Next
    
25. End With
    
26. 
    
27. Set myXML = Nothing
    
28. Set myHTML = Nothing
    
29. 
    
30. End Sub

複製代碼

afu9240

回復 4# iamaraymond


    好像沒辦法即時

iamaraymond

回復 5# afu9240

不太懂即時的意思，可以請afu大講詳細一點嗎?

afu9240

回復 6# iamaraymond


   感謝i大回復

       我所謂不即時是比如網頁已經更新到11:25,撈進來的資料還是在'09:30,會有這種狀況!!@@

下載 (113.92 KB)

2018-5-9 08:46

下載 (119.03 KB)

2018-5-9 08:46

quickfixer

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

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

afu9240

回復 8# quickfixer


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

iamaraymond

回復 9# afu9240

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

下載 (22.87 KB)

2018-5-9 11:40

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

01我想應該是指mobile01吧?