1234
返回列表 上一主題 發帖

擷取歷史股價

jsleee

帖子
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

帖子
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

帖子
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

帖子
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

帖子
90 
主題
16 
精華
0 
積分
114 
點名
0  
作業系統
XP 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-10-7 
15#
發表於 2012-6-5 21:26 | 只看該作者
diabo大大
有能力請自行寫出來用,不要在抱怨東抱怨西的

TOP

diabo

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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

        靜思自在 : 君子如水，隨方就圓，無處不自在。
1234
返回列表 上一主題