用ExcelVBA下载股票板块历史数据

先看结果，视频演示送上：https://www.bilibili.com/video/BV1RD4y1J7Uw/

制作思路的话，基本还是从“找数据源--设计表格结构--网抓实现---数据处理”这个逻辑来做。

表格结构方面，相对简单，一个表格用于定义板块清单，一个用于估值计算（基于历史数据），一个用于抓取历史数据，如下：

网抓方面，目前分析网页得来的所需数据，好像没有特殊的反爬措施，用正常的Winhttp请求就可以获取，而且返回json格式的数据，附上网抓核心代码如下：

Url = "http://quote.eastmoney.com/center/api/sidemenu.json"

With CreateObject("Microsoft.XMLHTTP")

.Open "GET", Url, False

.Send

Do While .ReadyState <> 4

If Timer - TimeEach > 10 Then

MsgBox "访问超时，请检查以下链接正确性：" & Url

Exit Sub

End If

DoEvents

Loop

mystr = .responsetext

End With

数据处理方面，需要注意的是涉及概念、行业以及地域板块几种不同的类型，分别用不同的网抓请求头，中间还涉及到翻页的问题，最终获取到的数据我是用正则表达式匹配的，然后通过数组输出，代码如下：

来看下最终效果：

这篇好文章是转载于：学新通技术网