麻辣家族討論版版 » Excel程式區 » 日K開高低收轉換「週K」開高低收

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

本帖最後由 bill740615 於 2018-5-4 11:45 編輯

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

W_KD.rar (154.75 KB)

樓主熱帖

收藏

　暱稱: Raymond Chien

中學生 Rank: 2

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

2^#

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

回復 1# bill740615

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

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

中學生 Rank: 2

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

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

3^#

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

回復 2# iamaraymond

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

　暱稱: Raymond Chien

中學生 Rank: 2

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

4^#

發表於 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

複製代碼

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

　暱稱: Raymond Chien

中學生 Rank: 2

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

5^#

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

回復 3# bill740615

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

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

中學生 Rank: 2

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

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

6^#

發表於 2018-5-4 20:14 | 只看該作者

回復 5# iamaraymond

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

　暱稱: Raymond Chien

中學生 Rank: 2

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

7^#

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

回復 6# bill740615

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

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

中學生 Rank: 2

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

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

8^#

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

回復 7# iamaraymond

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

　暱稱: Raymond Chien

中學生 Rank: 2

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

9^#

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

回復 8# bill740615

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

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

　暱稱: Raymond Chien

中學生 Rank: 2

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

10^#

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

回復 8# bill740615

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

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

靜思自在 : 人要自愛，才能愛普天下的人。

返回列表下一主題上一主題