概述
试玉要烧三日满，辨材须待七年期。大家好，我是IT探险家。
日常工作中，在做数据分析的时候经常会跟天气挂钩，比如楼主做房地产的，今日来访数据明显的减少，就会考虑到天气这个因素，比如今天特别的冷，可能大家都愿意窝在被窝不愿意出门，同样的遇到下雨天气，大家也不愿意出们，路上淅沥沥的。
于是在工作中，我们就可以运用一小段VBA代码，来实现当地天气的爬取，对比一下来做分析。话不多说，直接上代码；
Sub 抓取仁寿当天天气()
'创建对象
Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
'发送请求
xmlHttp.Open "GET", "http://tianqi.hao123.com/renshou.html", False
xmlHttp.send
'等待响应
Do While xmlHttp.ReadyState <> 4
DoEvents
Loop
'得到请求数据
Dim Myhtml As String
Myhtml = xmlHttp.responseText
Dim weather As String
weather = Split(Split(Myhtml, "
Range("G2") = "天气：" & weather
MsgBox ("今日天气更新已完成，今日天气为：" & weather)
End Sub
首先，Set xmlHttp = CreateObject("MSXML2.XMLHTTP")创建实例对象。然后访问我们的网址，等待响应。响应没有问题后，我们将得到的网页数数据赋值给到myhtml。然后用msgbox打印出来看一下。如下图：
我们可以看到这个内容其实就是网页代码。然后查看一下网页源代码，找到我们要抓取的天气信息，如下图：
然后我要抓取的就是多云这个天气，然后我们就用split函数将天气取出来。 weather = Split(Split(Myhtml, "
就是这样简单。又可以进行装X了。
那这次的分享就到这里啦，看完这篇文章的朋友们，如果文章对您有用的话，请帮忙评论、点赞、收藏、转发，非常感谢！如果有问题可以给我留言评论，看到了就会回答大家的。
最后
以上就是土豪自行车为你收集整理的实现网页的点赞留言转发_如何用VBA实现天气简单地爬取？的全部内容，希望文章能够帮你解决实现网页的点赞留言转发_如何用VBA实现天气简单地爬取？所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
发表评论 取消回复