返回列表 上一主題 發帖

[發問] 請敎如何用VBA下載　上市,上櫃 歷史本益比、殖利率及股價淨值比CSV ?

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-2 13:08 | 只看該作者

[發問] 請敎如何用VBA下載　上市,上櫃 歷史本益比、殖利率及股價淨值比CSV ?

本帖最後由 tsuneng 於 2014-11-2 13:09 編輯

請問:
想用vba下載 上市櫃 個股本益比、殖利率及股價淨值比(依日期查詢)  

證卷櫃買中心:
http://www.otc.org.tw/web/stock/aftertrading/peratio_analysis/pera.php?l=zh-tw
可以使用下資料下載CSV
http://www.otc.org.tw/web/stock/aftertrading/peratio_analysis/pera_download.php?l=zh-tw&d=103/09/04&c=&s=0,asc,0

臺灣證券交易所 :
http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_d.php
以下列資料無法下載CSV
http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_print.php?language=ch&save=csv

謝謝
收藏 分享

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
2#
發表於 2014-11-2 18:02 | 只看該作者
本帖最後由 tsuneng 於 2014-11-2 18:05 編輯

我試了很多方式只能找出
上市  個股本益比、殖利率及股價淨值比(依股票查詢)  
http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU.php?STK_NO=1102&myear=2010&mmon=08&type=csv

個股本益比、殖利率及股價淨值比(日期查詢)  查詢方法 ,還 請網大協助 , 謝謝!!

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
3#
發表於 2014-11-3 06:50 | 只看該作者
Dim TheURL As String
TheURL = "http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_d.php"
Cells(1, "F") = TheURL
With ActiveSheet.QueryTables.Add(Connection:="URL;" & TheURL, Destination:=Range("A2"))
            .BackgroundQuery = True
            .RefreshStyle = xlOverwriteCells
            .RefreshPeriod = 0
            .AdjustColumnWidth = False
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "8"           
            .WebDisableDateRecognition = True      
         End With


以上只能下載當日的個股本益比、殖利率及股價淨值比(依日期),

請問如何 下載 個歷吏股本益比、殖利率及股價淨值比(依日期),

感恩

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題