標題:
[發問]
日K開高低收轉換「週K」開高低收
[打印本頁]
作者:
bill740615
時間:
2018-5-4 11:41
標題:
日K開高低收轉換「週K」開高低收
本帖最後由 bill740615 於 2018-5-4 11:45 編輯
大家好,
我都是以EXCEL紀錄股票指數每日數據(日K)
如附件，依日期新舊往下排列開盤-最高-最低-收盤價格
請問轉換成右欄的週K開高收低，VBA該如何寫呢？
備註：每週以週一開始，週日結束。
[attach]28658[/attach]
[attach]28659[/attach]
作者:
iamaraymond
時間:
2018-5-4 15:14
回復
1#
bill740615
這個是要抓大盤的周K資料嗎?
作者:
bill740615
時間:
2018-5-4 15:17
回復
2#
iamaraymond
是的，想說是不是能從日K轉換過去
作者:
iamaraymond
時間:
2018-5-4 15:51
回復
3#
bill740615
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://jdata.yuanta.com.tw/Z/ZB/ZBH/CZKC0.djbcd?a=EB09999&b=W&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
Debug.Print Format(Timer - t, "0.00秒")
End Sub
複製代碼
作者:
iamaraymond
時間:
2018-5-4 15:53
回復
3#
bill740615
這是我從券商資料那邊抓下來的，這樣有符合你的需求嗎?
作者:
bill740615
時間:
2018-5-4 20:14
回復
5#
iamaraymond
感謝，請教一下，如果要抓其他股票資料，怎麼輸入代號?
作者:
iamaraymond
時間:
2018-5-4 21:10
回復
6#
bill740615
我有在你的另外一個貼文"1分K轉換日K的開高低收"底下留抓取股價資料的程式碼
在inputbox那邊可以輸入股票代號
作者:
bill740615
時間:
2018-5-4 22:16
回復
7#
iamaraymond
請問如果我要查詢2330台積電，也是輸入「2330」嗎? 那國外指數也可以查詢嗎?
作者:
iamaraymond
時間:
2018-5-4 22:31
回復
8#
bill740615
是的，當你執行程式時，應該會有一個輸入框跳出來，你只要輸入股票代號即可
作者:
iamaraymond
時間:
2018-5-4 22:32
回復
8#
bill740615
應該不行，或者是你把可以查國外指數的網址給我，我再試試看可不可以做成這種模式
作者:
Scott090
時間:
2018-5-5 07:26
回復
10#
iamaraymond
真有趣
假如是人工網頁尋找， 請問元大證券(http://www.yuanta.com.tw)的股票交易歷史資料是從那一個網頁頁面進去的找到的?
謝謝
作者:
iamaraymond
時間:
2018-5-5 10:50
回復
11#
Scott090
Scott大是指 http://jdata.yuanta.com.tw/Z/ZB/ZBH/CZKC0.djbcd?a=EB09999&b=W&c=1440 嗎?
作者:
bill740615
時間:
2018-5-5 19:43
回復
10#
iamaraymond
國外指數我只知道Yahoo Finance
作者:
iamaraymond
時間:
2018-5-5 22:30
回復
13#
bill740615
你想抓的是國外指數?還是外國公司股價呢?
作者:
iamaraymond
時間:
2018-5-5 22:37
回復
13#
bill740615
http://www.stockq.org/
這網站的資料OK嗎?
作者:
Scott090
時間:
2018-5-6 07:11
回復
12#
iamaraymond
對，那個網址是如何得到的?
又， 那裏面的資料不只 1-6 的日期、開、高、低、收、量
例如 http://jdata.yuanta.com.tw/Z/ZB/ZBH/CZKC0.djbcd?a=EB09999&b=d&c=1 大盤加權 日 K
2018/05/04 10516.45 10566.37 10500.97 10529.37 120828 174861 331616 8416 -3288638 -113571 -260508 -3662716
其中前6個是 日期、開、高、低、收、量 2018/05/04 10516.45 10566.37 10500.97 10529.37 120828
請問 從第7個 開始 這一些資料代表甚麼 ? 174861 331616 8416 -3288638 -113571 -260508 -3662716
可望指導， 謝謝
作者:
iamaraymond
時間:
2018-5-6 13:32
回復
16#
Scott090
之前看到Scott大常常參與網路擷取資料相關的帖子，不知道您熟不熟悉Chrome開發人員工具呢?
因為我也是透過這工具找到的，所以想先了解您對於此工具的熟悉程度，才比較好講解
另外關於大盤的資料，後面那幾項我也不太清楚，也沒有查到相關的項目
作者:
bill740615
時間:
2018-5-6 13:44
回復
15#
iamaraymond
1.一般都是看國外指數而已
2.您的意思是可以從http://www.stockq.org/下載到週K或是轉換成週K資料是嗎?
作者:
iamaraymond
時間:
2018-5-6 14:05
本帖最後由 iamaraymond 於 2018-5-6 14:06 編輯
回復
18#
bill740615
例如說
http://www.stockq.org/index/CCMP.php
這是Nasdaq指數的資料，我可以抓到下圖的price,MA20,MA60從12/22~5/4的資料
[attach]28662[/attach]
不過這好像都是日資料
作者:
Scott090
時間:
2018-5-6 17:15
回復
17#
iamaraymond
粗略知道這個東西 "Chrome開發人員工具"
也很辛苦地找到這個 "'BCDUrl': '/Z/ZC/ZCW/CZKC1.djbcd?a=2330&b=D&c=1440'" ，以個股 2330為例
請大師指導，如何有效率的搜尋出相關的網址及需求的參數
另，這個K線圖是可以設定趨勢線的，例如MACD， 如何做可以取得數據?
謝謝，感恩
作者:
iamaraymond
時間:
2018-5-7 08:02
回復
20#
Scott090
別稱呼我大師XD，版上比我厲害的高手太多了...
這個問題我覺得單用一個回復真的不太知道如何回，所以想說寫一些文，也讓對此有興趣的朋友有個入門的管道
http://forum.twbts.com/thread-20748-1-1.html
剛寫的第一篇文XD
作者:
Scott090
時間:
2018-5-7 10:14
回復
21#
iamaraymond
大師傳承的胸襟可佩
已拜讀第一篇喔，很好
感恩
作者:
cji3cj6xu6
時間:
2018-8-29 14:34
回復
21#
iamaraymond
謝謝iamaraymond大的多篇指導~~
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
