单击超链接,如果 href 值的前 10 个字符 = 某些内容



我正在为某事而苦苦挣扎。在 Excel VBA 中,如果 href 值的前几个字符等于给定值,我需要单击超链接。考虑下面的字符串:

<li><a href="/Column/1234567/general-info/Weekly/Monday/">Detail

所以,在这个例子中,我基本上只想唤起点击,只有当 href = "/Column/1234567" 的前 15 个字符的值并且如果 innertext = "Detail" .还有其他以"/Column/1234567"开头但不是"细节"的 href,还有其他内部文本是细节但具有不同的起始 href 值。我只想在满足 2 个条件时才单击。有人可以帮助处理VBA代码吗?

我找到了解决问题的方法。 将字符串变量 myRef 的值设置为我要匹配的前 15 个字符后,这是有效的代码:

    Set DetailLinks = ie.Document.getElementsByTagName("a")
    For Each Hyperlink In DetailLinks
        If InStr(Hyperlink.href, myRef) And InStr(Hyperlink.innerText, "Detail") Then
            Hyperlink.Click
            Exit For
        End If
    Next

@findwindow,感谢您提供的帮助。

最新更新