返回列表 上一主題 發帖

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

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

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

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

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

TOP

回復 2# iamaraymond


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

TOP

回復 3# afu9240
  1. Sub test()

  2. Dim myXML As Object
  3. Set myXML = CreateObject("Microsoft.XMLHTTP")

  4. Dim myHTML As Object
  5. Set myHTML = CreateObject("HTMLFile")

  6. i = 2
  7. With myXML
  8.     For Each stockNo In Range("A2:A4").Value
  9.         .Open "GET", "https://tw.stock.yahoo.com/q/q?s=" & stockNo, False
  10.         .send
  11.    
  12.         myHTML.body.innerHTML = .responseText
  13.         
  14.         Set myTable = myHTML.getElementsByTagName("table")(6)
  15.         
  16.         For j = 1 To 10
  17.             Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
  18.         Next
  19.         
  20.         i = i + 1
  21.     Next
  22. End With

  23. Set myXML = Nothing
  24. Set myHTML = Nothing

  25. End Sub
複製代碼
Raymond

TOP

回復 4# iamaraymond


    好像沒辦法即時
yvonne

TOP

回復 5# afu9240

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

TOP

回復 6# iamaraymond


   感謝i大回復

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

20180509.JPG
2018-5-9 08:46
20180509-2.JPG
2018-5-9 08:46
yvonne

TOP

本帖最後由 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

回復 8# quickfixer


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

TOP

回復 9# afu9240

即時的部分,我剛剛試是OK的
擷取.JPG
2018-5-9 11:40

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

01我想應該是指mobile01吧?
Raymond

TOP

        靜思自在 : 君子為目標,小人為目的。
返回列表 上一主題