擷取歷史股價

jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

11^# 跳轉到 »

發表於 2012-5-27 12:02 | 只看該作者

回復 10# diabo

不好意思，有辦法查大盤的成交量金額資料嗎？

TOP

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

12^#

發表於 2012-5-27 15:38 | 只看該作者

http://finance.yahoo.com/q/hp?s=%5ETWII+Historical+Prices
原始資料就這麼多....

diabo

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

13^#

發表於 2012-6-3 13:44 | 只看該作者

應jsleee要求

關於大盤成交量可參考http://forum.twbts.com/thread-6750-1-2.html

TOP

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

14^#

發表於 2012-6-5 00:09 | 只看該作者

大盤的四價(開高低收)資料最好與成交量資料都從TWSE來比較沒問題，不要一下子Yahoo Finance 一下子TWSE

http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=101&mmon=05
http://www.twse.com.tw/ch/trading/exchange/FMTQIK/genpage/Report201206/201206_F3_1_2.php?STK_NO=&myear=2012&mmon=06

diabo

TOP

white5168

中學生 Rank: 2

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

15^#

發表於 2012-6-5 21:26 | 只看該作者

diabo大大
有能力請自行寫出來用,不要在抱怨東抱怨西的

TOP

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

16^#

發表於 2012-6-6 23:46 | 只看該作者

本帖最後由 diabo 於 2012-6-6 23:52 編輯

回復 16# white5168

我是好意提醒，Yahoo finance 處理的日成交資訊，因為沒有特別處理台灣的彈性放假與補修的問題，所以每日成交資料數量與台灣證交所資料有所不同，請自行比較就知道的。

我可以提供自用的Excel範例供參考(程式碼沒鎖，完全公開)，請自行下載附件。

download_twii.rar (174.4 KB)

1 評分人數

GBKEE: 程式碼沒鎖，完全公開論壇要交流就是如此金錢 + 2

diabo

TOP

mannyhsu

小學生 Rank: 1

帖子: 19
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-6-16
最後登錄: 2014-9-23

論壇贊助勳章

17^#

發表於 2012-6-21 01:07 | 只看該作者

回復 17# diabo

請問如果是上市、上櫃的歷史股價資料查詢, 是否也能提供? 謝謝。

manny

TOP

tsuneng

中學生 Rank: 2

帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

18^#

發表於 2012-8-11 23:25 | 只看該作者

回復 16# diabo

因我是新手,有不明白處請教
請  diabo 大大:  說明

      Sub 更新大盤資料() 中
         If 最後一筆資料列數 = 1 Then

         1 --> 的用法

      謝謝!!

TOP

white945

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

19^#

發表於 2012-8-12 00:09 | 只看該作者

本帖最後由 GBKEE 於 2012-8-12 06:07 編輯

回復 18# tsuneng

      Sub 更新大盤資料() 中
         If 最後一筆資料列數 = 1 Then

         1 --> 的用法

雖然看不到完整程式碼
不過從這片段看來，執行這個判斷之前應該會有段計算
最後一筆資料列數=XXX運算式
才來判斷"最後一筆資料列數"這個變數是否等於1
這樣推斷不知對否，請各位前輩指正

TOP

tsuneng

中學生 Rank: 2

帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

20^#

發表於 2012-8-12 07:27 | 只看該作者

回復 19# white945

尊重原作者，只貼出部份程式碼.

With Sheets("TWII")
      資料庫最後一筆資料列數 = .Cells(Rows.Count, "A").End(xlUp).Row
      If 資料庫最後一筆資料列數 = 1 Then
         資料庫最後一筆日期 = DateSerial(1999, 1, 1)
      Else
         資料庫最後一筆日期 = .Cells(資料庫最後一筆資料列數, "A").Value
      End If
      資料庫新資料寫入列數 = 資料庫最後一筆資料列數 + 1
End With

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]