bill740615

中學生 Rank: 2

帖子: 14
主題: 5
精華: 0
積分: 63
點名: 221
作業系統: win7
軟體版本: home
閱讀權限: 20
性別: 男
註冊時間: 2016-2-4
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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
再請大大給予指教!!

樓主熱帖

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

2^#

發表於 2018-5-4 09:22 | 只看該作者

回復 1# bill740615

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

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

3^#

發表於 2018-5-4 11:21 | 只看該作者

回復 1# bill740615

多年前我也經過這些過程

我改用sql語法解決

請參考

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

TOP

bill740615

中學生 Rank: 2

帖子: 14
主題: 5
精華: 0
積分: 63
點名: 221
作業系統: win7
軟體版本: home
閱讀權限: 20
性別: 男
註冊時間: 2016-2-4
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章

4^#

發表於 2018-5-4 11:31 | 只看該作者

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

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

5^#

發表於 2018-5-4 12:58 | 只看該作者

回復 4# bill740615

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

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

TOP

bill740615

中學生 Rank: 2

帖子: 14
主題: 5
精華: 0
積分: 63
點名: 221
作業系統: win7
軟體版本: home
閱讀權限: 20
性別: 男
註冊時間: 2016-2-4
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章

6^#

發表於 2018-5-4 13:07 | 只看該作者

回復 5# joey0415

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

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

7^#

發表於 2018-5-4 15:07 | 只看該作者

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

Sub test()
Cells.Clear
stockno = InputBox("輸入股票代號")
Dim t: t = Timer
Dim myXML As Object
Set myXML = CreateObject("Microsoft.XMLHTTP")
Dim myArr(1 To 1500, 1 To 6)
With myXML
.Open "GET", "http://justdata.yuanta.com.tw/Z/ZC/ZCW/CZKC1.djbcd?a=" & stockno & "&b=D&c=1440", False
.send
myText = .responseText
End With
myText1s = Split(myText, " ")
j = 1
For Each myText1 In myText1s
i = 1
myText2s = Split(myText1, ",")
For Each myText2 In myText2s
If j > 6 Then Exit For
myArr(i, j) = myText2
i = i + 1
Next
j = j + 1
Next
[A2:F2] = Array("日期", "開", "高", "低", "收", "成交量")
[A3].Resize(1500, 6).Value = myArr
Set myXML = Nothing
Erase myArr
Debug.Print Format(Timer - t, "0.00秒")
End Sub