VBA - 无法单击无序列表中的链接

Question

我正在尝试点击网页中无序列表中的链接。我正在使用此代码，

Set linkElements = doc.getElementsByTagName("a")
For Each linkElement In linkElements
  If linkElement.getAttribute("id") = "level1st" Then   'Also tried using "onclick" and "innerText"
       linkElement.Click
       Exit For
  End If
Next linkElement

html片段是，

<div class="tree" id="treeDiv" style="width: 288px; border-top-color: transparent; border-top-width: 195px; border-top-style: solid;" ondragstart="return false" onselectstart="return false" oncontextmenu="return false">
  <ul style="width: 491px;">
    <li>
      <a id="level1st" onclick="resetTree(0);" href="#">GENERAL INFORMATION</a>
      <ul></ul>
    </li>

但是，当我运行代码时，网页中没有任何反应。 此外，它是一个动态无序列表，在单击提交按钮后加载，所以我还在此代码之前添加了一个ie.busy ...循环。

我不确定代码有什么问题。任何帮助，将不胜感激。谢谢。