vba - 打开网站，在 VBA 中查找特定值并将值返回到 Excel

Question

我想用VBA打开一个网站，在这个网站的HTML代码(<p class="myClass">XYZ</p>)中查找某个段落并将这个值返回给Excel，在我的例子中是"XYZ" .

该网站只有一个段落(p 元素)与上述类。

我知道这是可能的，但不知道从哪里开始。

我的代码:

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")

With objIE
    .Navigate varUrl
    Do While .Busy
          Application.Wait Now + TimeValue("0:00:01")
    Loop
    .Visible = True
End With

Answer 1

不要打开 IE，而是使用 Web 请求:

Set oRequest = New WinHttp.WinHttpRequest
With oRequest
    .Open "GET", sUrl, True
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
    .Send "{range:9129370}"
    .WaitForResponse
    Set index = .ResponseText.IndexOf("<p class=""myClass"">")
    Set text = .ResponseText.Substring(index,3)
    Cells(row, col).Value = text
End With

如果您不知道要查找的字符串的长度，也可以在 index 之后进行循环。直到您点击“ <”字符。