vba抓取网页数据( vba下VBA与网抓，VBA抓取网页抓取数据XMLHTTP )

　　vba抓取网页数据(

vba下VBA与网抓，VBA抓取网页抓取数据XMLHTTP

)

　　爬虫现在这么火，尤其是python和R，但是对于非专业程序员来说，平时接触的语言只依赖office的vba，而我们需要的数据来自互联网，那么怎么做？事实上，VBA 也可以抓取大部分网页数据。那我们看看怎么写

　　在看下面的内容之前，建议先看一下VBA和网络爬虫。 VBA抓取网页数据XMLHTTP对象

　　要求：提取电影名称、主演、上映时间、国家、收视等5个信息1.先写基本结构

　　Sub maoyanTop100()

Url = "http://maoyan.com/board/4?offset=0" '猫眼电影top100网址

Set oHttp = CreateObject("MSXML2.ServerXMLHTTP") '创建一个xmlhttp对象

Set oDom = CreateObject("htmlfile") '创建一个Dom对象 'XmlHttp对象(MSXML2.XMLHTTP)向http服务器发送请求并使用微软XML文档对象模型Microsoft® XML Document Object Model (DOM)处理回应。

With oHttp 'open，创建一个新的http请求，并指定此请求的方法、URL以及验证信息(用户名/密码) 'send,发送请求到http服务器并接收回应

.Open "GET", Url, False '使用Open方法，用get请求，False代表非异步加载

.send '将open方法的信息发送给网页服务器

oDom.body.innerHtml = .responseText '将响应网页的HTML赋值给Dom对象，并只需要body标签里面的内容

End With

End Sub

　　2.接下来我们将提取oDom中的信息