作者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/cn.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 的推文: 分身乱版！)