jsleee

回復 10# diabo


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

diabo

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

white5168

應jsleee要求

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

diabo

大盤的四價(開高低收)資料最好與成交量資料都從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

white5168

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

diabo

回復 16# white5168

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

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

download_twii.rar (174.4 KB)

下載次數: 97

2012-6-6 23:45

mannyhsu

回復 17# diabo


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

tsuneng

回復 16# diabo

因我是新手,有不明白處請教  
請  diabo 大大:  說明
        
         Sub 更新大盤資料() 中
            If 最後一筆資料列數 = 1 Then   
         
           1 --> 的用法

         謝謝!!

white945

回復 18# tsuneng

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

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

tsuneng

回復 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