返回列表 上一主題 發帖

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

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
1# 跳轉到 »
發表於 2018-5-7 19:33 | 顯示全部帖子
回復 1# afu9240
所以您要的資料是:
時間、成交、賣進、賣出、漲跌、張數、昨收、開盤、最高、最低嗎?
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 
2#
發表於 2018-5-8 16:46 | 顯示全部帖子
回復 3# afu9240
  1. Sub test()

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

  6. Dim myHTML As Object
  7. Set myHTML = CreateObject("HTMLFile")

  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

  27. Set myXML = Nothing
  28. Set myHTML = Nothing

  30. 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 
3#
發表於 2018-5-8 18:53 | 顯示全部帖子
回復 5# afu9240

不太懂即時的意思，可以請afu大講詳細一點嗎?
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 
4#
發表於 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

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
5#
發表於 2018-5-9 11:51 | 顯示全部帖子
回復 9# afu9240

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

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

  6. Dim myHTML As Object
  7. Set myHTML = CreateObject("HTMLFile")


  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

  28. Set myXML = Nothing
  29. Set myHTML = Nothing

  31. 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 
6#
發表於 2018-5-10 16:09 | 顯示全部帖子
回復 9# afu9240

所以...請問最後有解決您的問題嗎?
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題