【分享成果，随喜正能量】始终要在言语上胜过别人，是情商低的表现，没有人喜欢被质疑、被反对、被攻击、被逼着认错。始终要在言语上胜过别人，不仅不是真正的思想交流，还是职场和亲密关系的杀手。。

《VBA信息获取与处理》教程是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册，八十四讲。今日的内容是专题六“VBA中利用XMLHTTP完成网抓数据”的第8讲：XMLHTTP抓取股票历史数据表

第八节 利用XMLHTTP抓取股票历史数据的整体表处理

大家好，我们今天继续网抓内容的学习，这一讲是利用XMLHTTP实现网抓数据专题的最后一讲，这讲的内容原理是和第六节内容重复的，只是想给大家多介绍一个实际的例子。让大家看到理论的实践过程。

我们这讲仍是完成在网页上抓取某支股票的历史数据，实现的目的和上一节是相同的，但是这讲我们在处理网页的反馈信息的时候，将利用和上讲不同的方法，采用一种整体表处理的方案来实现我们的目的。

1 应用XMLHTTP实现网抓股票数据整体表处理的代码实现

为了实现对于网抓数据的整体表处理，我给出我推出的代码：

Sub myNZF() ‘股票历史数据的抓取,表整体的处理

【详细代码见教程】

End Sub

这段代码大家可以实测，只要给出股票的代码和年季度的值就可以在“网易财经”网页抓到相应的数据，十分的方便和快捷，有了这些数据，我们就可以在EXCEL中实现数据分析了。

代码截图：

代码的解读：

1） GPCode = Cells(1, 4).Value

GPY = Cells(2, 4).Value

GPJ = Cells(3, 4).Value

以上代码实现对股票代码、年、季度数据的获得。

2）strURL = “http://quotes.money.163.com/trade/lsjysj_” & GPCode

strURL = strURL & “.html?year=” & GPY

strURL = strURL & “&season=” & GPJ

With CreateObject(“MSXML2.XMLHTTP”)

.Open “GET”, strURL, False

.send

strText = .responseText

End With

以上代码实现对网页数据的提取。

3） strText = Split(Split(strText, “<table”)(4), “</table>”)(0)

strText = “<table” & strText & “</table>”

提取网页整体的表数据。

4）CopyToClipbox strText

将数据复制到剪切板。

5） Range(“a5”).Select

ActiveSheet.Paste

将剪切板的数据放到工作表中，实现数据的回填。

整个代码的思路和第六节是相同的，实现的目的和第七节是相同的，只是在数据处理的时候，代码显得比较简洁、利落。而且比较好理解。

2 应用XMLHTTP实现网抓股票数据整体表处理的实现效果

我们仍是提取紫金矿业的20年第二季度的数据，点击运行按钮：

就得到了我们上述的数据（上面的数据仅是部分）。我们可以修正一下就可以获得自己期望得到的数据。

本节知识点回向：

如何提取网页股票的历史整体表数据到工作表中？这种方案和之前的哪节知识点类似？

本讲参考程序文件：006工作表.XLSM

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

【分享成果，随喜正能量】对方没有爽快答应，多数时候就是拒绝，为了不伤彼此的颜面，人们拒绝的时候，往往会选择委婉的表达方式，比如“我再考虑一下”“下次吧”“改天吧”“看情况吧”。所谓的进退有度，要就是在这种时候不强人所难。。