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