Excel VBA代码获取链接并单击它

这是我希望VBA Excel单击的链接的屏幕截图：

在导航到所需页面后，我在VBA Excel中使用此代码，但它没有得到我在上面图片中显示的链接

set Alllinks=objIE.document.getallelementsbytagname("a")

For Each link In Alllinks

    'MsgBox link.innertext & " - " & link.href

    If InStr(link.innerText, "ABERCROMBIE JOE R") > 0 Then
        link.Click

    Exit For

    End If

Next link

---

按如下方式修改代码：

Dim httpObject As Object
Set httpObject = CreateObject("MSXML2.XMLHTTP")
Dim doc As Object
Set doc = CreateObject("htmlfile")
Dim links As Variant

With httpObject
    .Open "GET", "http://www.deltacomputersystems.com/cgi-lra2/LRMCGI01?HTMCNTY=AL39&HTMBASE=C&HTMSEARCH=BEGIN&HTMNAME=ABERCROMBIE+JOE+R&HTMADDRNUMBER=&HTMADDRSTREET=&HTMPARCEL1=&HTMPARCEL2=&HTMPARCEL3=&HTMPARCEL4=&HTMPARCEL5=&HTMPARCEL6=&HTMPARCEL7=&HTMPARCEL8=&HTMPPIN=&HTMSUBMIT=Submit", False
    .send
    Do Until httpObject.ReadyState = 4
    Loop
    doc.body.innerhtml = .responseText
    Set links = doc.getElementsByTagName("a")
    MsgBox (links(0).href)

End With

这是输出

---

您是否使用alert检查了链接是否存在？我知道原因，但不知道如何修改代码链接是HTM是的，只有html链接不存在HTM这是网页的链接我想获得第一个链接“ABERCROMBIE JOE R”