VBA在没有名称/ ID的IE中单击下拉链接

Question

我正在尝试通过VBA单击公司网页上的链接。问题是HTML没有名称或ID。我在此站点上看到了许多不同的场景，并且已经尝试过，但似乎无法单击此链接。

我不能共享该站点，因为它是公司的Intranet站点，但是我将共享HTML部分和我的代码尝试。

这是HTML。应该知道，只有将鼠标悬停在菜单上才能访问该链接。

 <li title="vendor" class="current"><a class="sf-with-ul" href="javascript:void(0);">Vendor A/P Inquiry<span class="sf-sub-indicator"> »</span></a>
  <ul style="width: 7.68em; float: none; display: none; visibility: hidden;">
   <li title="Vendor Invoice Inquiry Thru Browser" style="width: 100%; float: left; white-space: normal;"><a style="width: auto; float: none;" href="javascript:top.pageFrame.processSelection('VRJA');">Vendor A/P Inquiry</a></li>
  </ul>
</li>

这里是它的屏幕截图，以防以这种方式更容易阅读...

编辑：我将鼠标悬停在其上以显示所需链接的父项是<li title="vendor" class="current">行

这是我尝试单击此链接的一些尝试（在HTML屏幕截图中以蓝色突出显示）

尝试1：

 Dim link As Object
            Dim doc As Object

            Set doc = ieApp.document

            For Each link In doc.Links
            Debug.Print link.innerText
            If link.innerText = "Vendor A/P Inquiry" Then
            link.Click
            Exit For
            End If
            Next link

尝试2：

  Set ieAnchors = ieApp.document.anchors
                For Each Anchor In ieAnchors
                    If Anchor.href = "javascript:top.pageFrame.processSelection('VRJA');" Then
                        Anchor.Click
                        Exit For
                    End If
                Next Anchor

尝试3：

Set buttonclick = ieApp.document.getElementsByTagName("a")
For Each element In buttonclick
    If element.href = "javascript:top.pageFrame.processSelection('VRJA');" Then element.Click
Next element

我可以很好地浏览网站，直到获得此链接。

任何帮助将不胜感激，因为我觉得我要一遍又一遍地尝试相同的解决方案。