如何在 VBA 中激活单击此超链接？

Question

经过一些非常友好的帮助后，我现在有了一小段代码，可以使用 Excel 中的 VBA 模块导航到网站。 它在单元格 A2 中挑选出一匹马的名字，我有马 Tiger Roll。这是代码：

 Dim objIE As InternetExplorer
    Set objIE = New InternetExplorer
    'make web page visible
    objIE.Visible = True

    'navigate objIE to this web page
    objIE.navigate "https://www.britishhorseracing.com/racing/horses/racehorse-search-results?pagenum=1&q=" & Sheets("Sheet1").Range("A2").Value & "&rated=false"

    'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

问题是我已经检查了页面并找到了链接，但是对于我的生活，我只是无法编写正确的代码来激活链接以深入了解马的统计信息。 任何人都可以提供帮助，也许可以解释一下这样做的方法吗？ 非常感谢你，

Answer 1

使用 class 名称作为结果来定位锚点点击

objIE.document.querySelector(".link-row").click

Answer 2

如果您的搜索只有一个结果，那么到马详细信息页面的链接是唯一具有"tr link-row"类的项目的href属性的内容。 如果您的搜索有更多结果，则每个搜索结果都会有一个项目，并且您可以以相同的方式对它们执行您想要的操作（您可以保留第一个或循环遍历它们等）。

请记住，这些元素一开始并不是文档的一部分，因为文档将加载其 HTML 代码，其中包含将加载其他元素的脚本，因此 VBA 必须等待 Internet Explorer 运行这些脚本。

到 go 到结果页面中唯一/第一匹马的详细信息页面，在您的代码之后：

Dim htmlPage As HTMLDocument
Set htmlPage = objIE.Document

'Page is dynamically populated from script. You have to wait when the horse link gets loaded
Do While htmlPage.getElementsByClassName("tr link-row").Length < 1
    DoEvents
Loop

'Get link (href attribute) and navigate to it
objIE.navigate htmlPage.getElementsByClassName("tr link-row").Item(0).href

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

Be aware that while InternetExplorer object is part of Microsoft Internet Controls library, HTMLDocument is part of Microsoft HTML Object Library , so add it to references in VBA.