点击VBA中的href

Question

我想点击以下链接

我有类名和我尝试使用的行代码如下：

objIE.document.getElementByClassName("msDataText searchLink").Click

这可能是一个非常基本的问题......任何指导

非常感谢

Answer 1

不确定这是否是重复的问题。 link已经提供了一个好的功能GetHTTPResult。您只需传递GET请求的url即可获取数据。对于POST请求（此功能不起作用），您需要使用postdata发出POST请求。

此外，link

还有一个XMLHttpRequest示例

Function GetHTTPResult(sURL As String) As String
    Dim XMLHTTP As Variant, sResult As String

    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    XMLHTTP.Open "GET", sURL, False
    XMLHTTP.Send
    Debug.Print "Status: " & XMLHTTP.Status & " - " & XMLHTTP.StatusText
    sResult = XMLHTTP.ResponseText
    Debug.Print "Length of response: " & Len(sResult)
    Set XMLHTTP = Nothing
    GetHTTPResult = sResult
End Function