返回列表 上一主題 發帖

[發問] 1分K轉換日K的開高低收

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

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

請問為什麼不直接抓日K資料呢?
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-4 15:07 | 顯示全部帖子
回復 6# bill740615
之前有寫過抓5年股價的資料，不知道符不符合你的需求
  1. Sub test()

  3. Cells.Clear

  5. stockno = InputBox("輸入股票代號")

  7. Dim t: t = Timer
  8. Dim myXML As Object
  9. Set myXML = CreateObject("Microsoft.XMLHTTP")

  11. Dim myArr(1 To 1500, 1 To 6)

  13. With myXML
  14.     .Open "GET", "http://justdata.yuanta.com.tw/Z/ZC/ZCW/CZKC1.djbcd?a=" & stockno & "&b=D&c=1440", False
  15.     .send
  16.     myText = .responseText
  17. End With

  19.     myText1s = Split(myText, " ")
  20.     j = 1
  21.     For Each myText1 In myText1s
  22.         i = 1
  23.         myText2s = Split(myText1, ",")
  24.         For Each myText2 In myText2s
  25.             If j > 6 Then Exit For
  26.             myArr(i, j) = myText2
  27.             i = i + 1
  28.         Next
  29.         j = j + 1
  30.     Next

  32. [A2:F2] = Array("日期", "開", "高", "低", "收", "成交量")
  33. [A3].Resize(1500, 6).Value = myArr

  35. Set myXML = Nothing
  36. Erase myArr
  37. Debug.Print Format(Timer - t, "0.00秒")

  39. 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-21 11:02 | 顯示全部帖子
回復 8# f3202

可以幫您修改，但可以問一下這是甚麼資料嗎?
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-21 13:56 | 顯示全部帖子
回復 10# f3202

已經幫您抓到資料了
https://raymondchiendtrt.blogspot.tw/2018/05/excel-vba_20.html
不過可以請教您，抓下來的
AP1        AP2        AP3        AP4        AP5        AP6        CHG        ROI
這些是甚麼指標的資料嗎?感謝
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題