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

[DrDeer (我是一隻鹿)]

※ 引述《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

使用上有什麼問題歡迎推文討論

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.171.192.116
※ 文章網址: https://www.ptt.cc/bbs/Trading/M.1498923341.A.463.html
推 excelceo2: 感謝分享
推 g1898001: thanks
推 vbnwei: 感謝熱情分享~~~
推 sunhero: 感謝分享
推 ApacheHunter: 感謝分享~~
推 faceoflove56: 感謝分享~
推 ninggo: 樓主一生平安喜樂
推 pppeeeyyy: 感謝大大分享，請問一下上櫃的要怎麼抓呢?
推 YuShiYau: http://www.tpex.org.tw/web/stock/aftertrading/daily_
→ YuShiYau: trading_info/st43_download.php?l=zh-tw&d=106/07&stkn
→ YuShiYau: o=6180
推 pppeeeyyy: yu大大請問一下要怎麼改呢?
→ YuShiYau: 106/07是月份，6180是股票代號，自行替換即可
推 asd9: 謝謝樓主~
※ LonelyDream:轉錄至某隱形看板                                    07/15 23:57
→ DrDeer: 這幾天沒來逛板，感謝Yushi的分享～
推 pppeeeyyy: 請教一下YU大大是把你打的網址分段輸入進去嗎?
推 pppeeeyyy: 可是這邊好像有個問題是檔案名稱不允許有/\出現
→ pppeeeyyy: 要怎麼改呢?
→ DrDeer: / \ 應該是可以出現的，分段輸入 ="網址1"&B3&"網址2"
→ DrDeer: 上面是包含儲存格和文字的例子
※ 編輯: DrDeer (1.171.212.202), 07/18/2017 23:42:13
→ DrDeer: 我改了一下檔案作了一個上櫃股價的下載版本
→ DrDeer: https://goo.gl/WBiLNE 請參考
→ DrDeer: pppeeeyyy說的應該是存檔名稱  改了函數提供參考
推 pppeeeyyy: 先謝謝大大了
(ETHZ 刪除 NNGG 的推文: 亂版!)
(ETHZ 刪除 ES200h 的推文: 分身亂版！)