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

---

作者: tsuneng    時間: 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    時間: 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

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

---

作者: tsuneng    時間: 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


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

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

感恩

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)