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

bill740615

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

下載 (27.24 KB)

2018-5-3 20:35

iamaraymond

回復 1# bill740615

請問為什麼不直接抓日K資料呢?

joey0415

回復 1# bill740615

多年前我也經過這些過程

我改用sql語法解決

請參考

https://www.mobile01.com/topicdetail.php?f=514&t=3522285&p=1#45891769

bill740615

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

回復 3# joey0415
謝謝joey0415，不過我不懂這程式語法，excel VBA能處理這些數據嗎?

joey0415

回復 4# bill740615

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

請問你這資料是從哪個網頁抓下來的？

bill740615

回復 5# joey0415

從coco-in索取的資料，可是這樣人工篩選應該會瘋掉吧...

iamaraymond

回復 6# bill740615
之前有寫過抓5年股價的資料，不知道符不符合你的需求

1. Sub test()
   
2. 
   
3. Cells.Clear
   
4. 
   
5. stockno = InputBox("輸入股票代號")
   
6. 
   
7. Dim t: t = Timer
   
8. Dim myXML As Object
   
9. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
10. 
    
11. Dim myArr(1 To 1500, 1 To 6)
    
12. 
    
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
    
18. 
    
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
    
31. 
    
32. [A2:F2] = Array("日期", "開", "高", "低", "收", "成交量")
    
33. [A3].Resize(1500, 6).Value = myArr
    
34. 
    
35. Set myXML = Nothing
    
36. Erase myArr
    
37. Debug.Print Format(Timer - t, "0.00秒")
    
38. 
    
39. End Sub

複製代碼

f3202

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

iamaraymond

回復 8# f3202

可以幫您修改，但可以問一下這是甚麼資料嗎?

f3202

回復 9# iamaraymond

這是 9904 股票ㄖK的資料
雖然web可取出但是還需資料剖析有些麻煩
用6樓程式修改陣列搞不了
先謝謝版大