ExcelVBA函数：显示上海7天天气预报

VBA在简单抓取网页数据方面，也是一个好手。
这里用一个例子，显示下如何获取指定网站天气预报数据。
执行代码后，显示：相应代码如下：Private Sub () '要引用：Microsoft HTML Object Library Dim dom As New HTMLdocument Set http = CreateObject("Msxml2.ServerXMLHTTP") http.Open "GET", "http://www.weather.com.cn/weather/101020100.shtml", False http.send dom.body.innerHTML = http.responseText Set ul_list = dom.getElementsByClassName("t clearfix") Dim strContent As String For Each el In ul_list(0).getElementsByTagName("li") strContent = strContent & vbCrLf & el.innerText & vbCrLf & String(32, "-") & vbCrLf Next strContent = Replace(strContent, vbCrLf & vbCrLf, vbCrLf) strContent = Replace(strContent, vbCrLf & vbCrLf, vbCrLf) strContent = Replace(strContent, vbCr & vbCr, vbCr) strContent = Replace(strContent, vbLf & vbLf, vbLf) strContent = Replace(strContent, "雨", "【★雨★】") '【★，醒目！ MsgBox strContent, vbInformation, "上海7天天气预报" End Sub