internet-explorer - 如何使用 VBA 访问网页(IHTMLDocument？)

Question

使用以下代码，我可以打开 Internet Explorer 窗口并导航到该网站。我想更进一步，能够通过代码点击其中一个链接(例如“拳击/UFC”)。

Sub Run()   
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .Navigate2 "http://www.bet365.com"
    Do Until .ReadyState = 4: DoEvents: Loop
    .Quit
End With

因为该链接会导致 Javascript onclick 事件 (onclick="gS(1020,9);return false;")，您能否建议我可以使用该代码一旦 VBA 宏运行，VBA 就可以在没有用户干扰的情况下单击该链接吗？

Answer 1

在 Internet Explorer 中，您只需通过 DOM API 单击链接即可。

检索您感兴趣的 DOM 节点(A)，并对其调用 click()。这也将触发所有关联的事件处理程序。

<小时/>

编辑:在您的情况下，使用 VBA，执行类似的操作(未经测试，我这里没有 VBA)

Dim sideNav As IHTMLElement 
Dim navLinks As IHTMLElementCollection
Dim currLink As IHTMLElement

Set sideNav = IE.document.getElementByID("sln")
Set navLinks = sideNav.all.tags("A")

For Each currLink In navLinks
  If Trim(currLink.innerText) = "Boxing/UFC" Then
    currLink.Click
  End If
Next currLink