作者DrDeer (我是一隻鹿)
看板Trading
標題Re: [問題] 如何用VBA從公開資訊觀測站抓每日股價
時間Sat Jul 1 23:35:33 2017
※ 引述《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://webptt.com/m.aspx?n=bbs/Trading/M.1498923341.A.463.html
1F：推 excelceo2: 感謝分享 07/02 10:44
2F：推 g1898001: thanks 07/02 13:04
3F：推 vbnwei: 感謝熱情分享~~~ 07/02 22:02
4F：推 sunhero: 感謝分享 07/05 12:30
5F：推 ApacheHunter: 感謝分享~~ 07/06 11:18
6F：推 faceoflove56: 感謝分享~ 07/08 23:05
7F：推 ninggo: 樓主一生平安喜樂 07/09 18:24
8F：推 pppeeeyyy: 感謝大大分享，請問一下上櫃的要怎麼抓呢? 07/13 15:39
10F：→ YuShiYau: trading_info/st43_download.php?l=zh-tw&d=106/07&stkn 07/14 02:44
11F：→ YuShiYau: o=6180 07/14 02:44
12F：推 pppeeeyyy: yu大大請問一下要怎麼改呢? 07/14 13:44
13F：→ YuShiYau: 106/07是月份，6180是股票代號，自行替換即可 07/14 19:14
14F：推 asd9: 謝謝樓主~ 07/15 15:09
※ LonelyDream:轉錄至某隱形看板 07/15 23:57
15F：→ DrDeer: 這幾天沒來逛板，感謝Yushi的分享～ 07/17 22:42
16F：推 pppeeeyyy: 請教一下YU大大是把你打的網址分段輸入進去嗎? 07/18 17:46
17F：推 pppeeeyyy: 可是這邊好像有個問題是檔案名稱不允許有/\出現 07/18 17:53
18F：→ pppeeeyyy: 要怎麼改呢? 07/18 17:53
19F：→ DrDeer: / \ 應該是可以出現的，分段輸入 ="網址1"&B3&"網址2" 07/18 23:29
20F：→ DrDeer: 上面是包含儲存格和文字的例子 07/18 23:30
※ 編輯: DrDeer (1.171.212.202), 07/18/2017 23:42:13
21F：→ DrDeer: 我改了一下檔案作了一個上櫃股價的下載版本 07/19 00:11
23F：→ DrDeer: pppeeeyyy說的應該是存檔名稱 改了函數提供參考 07/19 00:12
24F：推 pppeeeyyy: 先謝謝大大了 07/20 09:38
(ETHZ 刪除 NNGG 的推文: 亂版!)
(ETHZ 刪除 ES200h 的推文: 分身亂版！)