ExcelVBA如何获取HTMLspan后面的值?-相关文档
使用XMLHTTP对象发送HTTP请求并利用HTMLDocument对象解析返回的HTML内容,然后通过HTMLDocument对象的getElementsByTagName方法选取目标HTML元素,最终获取其value属性值。
示例代码如下:
Dim xmlhttp As Object '声明xmlhttp对象 Dim htmlDoc As Object '声明htmlDoc对象 Dim spanEle As Object '声明span元素对象 Dim result As String '声明返回结果变量
Set xmlhttp = CreateObject("MSXML2.XMLHTTP") '创建xmlhttp对象 xmlhttp.Open "GET", "http://example.com", False '发送HTTP GET请求,注意要替换为实际的目标网址 xmlhttp.send '等待请求完成 Set htmlDoc = CreateObject("HTMLDocument") '创建htmlDoc对象 htmlDoc.body.innerHTML = xmlhttp.responseText '将返回的HTML内容加载到htmlDoc对象中 Set spanEle = htmlDoc.getElementsByTagName("span")(0) '选取第一个span元素 result = spanEle.value '获取span元素的value属性值
MsgBox result '显示结果