[發問] 日K開高低收轉換「週K」開高低收

bill740615

大家好,
我都是以EXCEL紀錄股票指數每日數據(日K)
如附件，依日期新舊往下排列開盤-最高-最低-收盤價格
請問轉換成右欄的週K開高收低，VBA該如何寫呢？
備註：每週以週一開始，週日結束。
W_KD.rar (154.75 KB)

下載次數: 13

2018-5-4 11:41

下載 (76.5 KB)

2018-5-4 11:42

iamaraymond

回復 1# bill740615

這個是要抓大盤的周K資料嗎?

bill740615

回復 2# iamaraymond

是的，想說是不是能從日K轉換過去

iamaraymond

回復 3# bill740615

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://jdata.yuanta.com.tw/Z/ZB/ZBH/CZKC0.djbcd?a=EB09999&b=W&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. 
    
37. Debug.Print Format(Timer - t, "0.00秒")
    
38. 
    
39. End Sub

複製代碼

iamaraymond

回復 3# bill740615

這是我從券商資料那邊抓下來的，這樣有符合你的需求嗎?

bill740615

回復 5# iamaraymond

感謝，請教一下，如果要抓其他股票資料，怎麼輸入代號?

iamaraymond

回復 6# bill740615

我有在你的另外一個貼文"1分K轉換日K的開高低收"底下留抓取股價資料的程式碼
在inputbox那邊可以輸入股票代號

bill740615

回復 7# iamaraymond

請問如果我要查詢2330台積電，也是輸入「2330」嗎? 那國外指數也可以查詢嗎?

iamaraymond

回復 8# bill740615

是的，當你執行程式時，應該會有一個輸入框跳出來，你只要輸入股票代號即可

iamaraymond

回復 8# bill740615

應該不行，或者是你把可以查國外指數的網址給我，我再試試看可不可以做成這種模式