Board logo

標題: [發問] 1分K轉換日K的開高低收 [打印本頁]
作者: bill740615    時間: 2018-5-3 20:37     標題: 1分K轉換日K的開高低收

本帖最後由 bill740615 於 2018-5-3 20:42 編輯

各位大大好，
小弟才疏學淺，請問檔案「20160812.xlsx」如何轉換1分K的資料為日K的開高低收
檔案較大，分享在雲端空間，https://mega.nz/#!g0hCjRwR!YC2ZPOI7ISgFfx3567wr8jQGMMq_WAEP8E4eWYheeRQ
再請大大給予指教!!

[attach]28653[/attach]
作者: iamaraymond    時間: 2018-5-4 09:22

回復 1# bill740615

請問為什麼不直接抓日K資料呢?
作者: joey0415    時間: 2018-5-4 11:21

回復 1# bill740615

多年前我也經過這些過程

我改用sql語法解決

請參考

https://www.mobile01.com/topicdetail.php?f=514&t=3522285&p=1#45891769
作者: bill740615    時間: 2018-5-4 11:31

回復 2# iamaraymond
期交所只有日K的收盤價，沒有開高低的數據，只能自己轉換

回復 3# joey0415
謝謝joey0415，不過我不懂這程式語法，excel VBA能處理這些數據嗎?
作者: joey0415    時間: 2018-5-4 12:58

回復 4# bill740615

透過資料篩選，例如選取20160812天當的資料，再用一些簡單函數max  min等，就可以抓出來

請問你這資料是從哪個網頁抓下來的？
作者: bill740615    時間: 2018-5-4 13:07

回復 5# joey0415

從coco-in索取的資料，可是這樣人工篩選應該會瘋掉吧...
作者: iamaraymond    時間: 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
複製代碼
作者: f3202    時間: 2018-5-21 10:09

回復 7# iamaraymond
請問坂大
http://webrtqt.fortunengine.com.tw/rtdata/k-chart/day-9904.txt?ts=1526775289018
這總資料 程式該如何修改
謝謝
作者: iamaraymond    時間: 2018-5-21 11:02

回復 8# f3202

可以幫您修改，但可以問一下這是甚麼資料嗎?
作者: f3202    時間: 2018-5-21 11:44

回復 9# iamaraymond

這是 9904 股票ㄖK的資料
雖然web可取出但是還需資料剖析有些麻煩
用6樓程式修改陣列搞不了
先謝謝版大
作者: iamaraymond    時間: 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
這些是甚麼指標的資料嗎?感謝
作者: f3202    時間: 2018-5-21 18:36

回復 11# iamaraymond

謝謝版大AP1 AP2 AP3 AP4 AP5 AP6 CHG ROI
       5,10,20,60,120,240pma  漲跌  漲跌幅
作者: Scott090    時間: 2018-5-22 08:59

本帖最後由 Scott090 於 2018-5-22 09:00 編輯

回復 12# f3202
回復 11# iamaraymond

    http://webrtqt.fortunengine.com.tw/rtdata/k-chart/day-9904.txt?ts=1526775289018
請問 上列網址 的參數 "ts=1526775289018" 是什麼?

謝謝
作者: quickfixer    時間: 2018-5-22 09:36

本帖最後由 quickfixer 於 2018-5-22 09:41 編輯

回復 13# Scott090

那13個數字是 unix time,有的網站是用10位數
是隨時變動的
#11建議要改成變動的url,
有些網站會檢查時間戳記,差太多是不能下載的

01那邊#271有現在時間轉成unix time用的副程式10碼、13碼都有
可以去看看
作者: Scott090    時間: 2018-5-22 10:47

回復 14# quickfixer


    謝謝提點
有找到 01 的算法



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)