Re: [問題] 如何用VBA從公開資訊觀測站抓每日股價

作者: DrDeer (我是一隻鹿)   2017-07-01 23:35:33
※ 引述《faceoflove56 (浪漫台三線)》之銘言:
: 最近剛碰VBA,目前資料都是從鉅亨網及Histock等網站來的
: 但其實我還是比較想從公開資訊觀測站抓(MOPS),因為比較可靠資訊也較多
: 以下是資料來源
: http://www.tse.com.tw/zh/page/trading/exchange/STOCK_DAY.html
: 目前有一個問題是MOPS必須輸入Ticker再按查詢
: 如果是鉅亨網網址後面就會有我要查詢的股票代號
: (VBA就可以根據此網址直接找到該股資訊,如下3017)
: http://www.cnyes.com/twstock/profile/3017.htm
: 想請教各位都是如何用VBA從MOPS抓這類型的網頁資料?
: 另外想請問有在抓網頁資料的前輩都是如何抓的?
: 因為用VBA當有新公司就要改一堆語法,覺得不如直接複製貼上來得快
: Thx
我看了一下你提供的網址
研究了一下發現 csv檔可以直接下載
http://www.tse.com.tw/exchangeReport/STOCK_DAY?response=csv&date=20170601&stockNo=2330
提供給大家參考~
原則上只要改股票代號 及 看要抓哪一個月就改當月的第一天
舉例來說要抓 4月 2330的資料
日期改 20170401 (測試一下4/1假日一樣寫 01 沒關係)
就可以自訂要下載的月份及股票代號
我順手寫了一個ExcelVBA
有需要的人可以參考看看~
https://goo.gl/aJW587
使用上有什麼問題歡迎推文討論
作者: excelceo2   2017-07-02 10:44:00
感謝分享
作者: g1898001 (布雷克)   2017-07-02 13:04:00
thanks
作者: vbnwei (Mr.V)   2017-07-02 22:02:00
感謝熱情分享~~~
作者: sunhero   2017-07-05 12:30:00
感謝分享
作者: ApacheHunter (HelpThisCompany)   2017-07-06 11:18:00
感謝分享~~
作者: faceoflove56 (浪漫台三線)   2017-07-08 23:05:00
感謝分享~
作者: ninggo (穿著褲子的男人)   2017-07-09 18:24:00
樓主一生平安喜樂
作者: pppeeeyyy (pppeeeyyy)   2017-07-13 15:39:00
感謝大大分享,請問一下上櫃的要怎麼抓呢?
作者: YuShiYau   2017-07-14 02:44:00
http://www.tpex.org.tw/web/stock/aftertrading/daily_trading_info/st43_download.php?l=zh-tw&d=106/07&stkno=6180
作者: pppeeeyyy (pppeeeyyy)   2017-07-14 13:44:00
yu大大請問一下要怎麼改呢?
作者: YuShiYau   2017-07-14 19:14:00
106/07是月份,6180是股票代號,自行替換即可
作者: asd9 (asd9)   2017-07-15 15:09:00
謝謝樓主~
作者: DrDeer (我是一隻鹿)   2017-07-17 22:42:00
這幾天沒來逛板,感謝Yushi的分享~
作者: pppeeeyyy (pppeeeyyy)   2017-07-18 17:46:00
請教一下YU大大是把你打的網址分段輸入進去嗎?可是這邊好像有個問題是檔案名稱不允許有/\出現要怎麼改呢?
作者: DrDeer (我是一隻鹿)   2017-07-18 23:29:00
/ \ 應該是可以出現的,分段輸入 ="網址1"&B3&"網址2"上面是包含儲存格和文字的例子我改了一下檔案作了一個上櫃股價的下載版本https://goo.gl/WBiLNE 請參考pppeeeyyy說的應該是存檔名稱 改了函數提供參考
作者: pppeeeyyy (pppeeeyyy)   2017-07-20 09:38:00
先謝謝大大了

Links booklink

Contact Us: admin [ a t ] ucptt.com