Vba 单击Internet Explorer中的下拉菜单选项

说到编码，我是个业余爱好者，但我只是想做一个简单的VBA脚本来为我的工作开一些发票。我可以让VBA打开我所在的网页，但我无法让它打开我需要的下拉菜单并单击我需要它单击的链接。HTML是：

<div class="fnBtnContainerDIV" style="left: 146px; top: 4px; position: absolute; z-index: 9998;">
    <div class="secondary-btn"><a href="#">Functions</a></div>
    <span style="float: left;">&nbsp;</span>
    <div class="secondary-dropdown" style="left: 95.14px; top: 19px; width: 195px; display: none; position: absolute; z-index: 9998;">
        <ul>
            <li><a name="YsiLinkList1:LinkList:DataTable:row0:Value:anchor" tabindex="-1" id="YsiLinkList1:LinkList:DataTable:row0:Value_anchor"
                   href="javascript:OpenNewWindow('/34478dra/Pages/SysAttachmentView.aspx?iType=30&amp;hRecord=300073209');">Attachment</a></li>
            <li><a name="YsiLinkList1:LinkList:DataTable:row1:Value:anchor" tabindex="-1" id="YsiLinkList1:LinkList:DataTable:row1:Value_anchor"
                   href="javascript:OpenNewWindow('/34478dra/Pages/../Pages/PayableTransCustom.aspx?hPayable=300073209');">Third-party Invoice Image</a></li>
            <li><a name="YsiLinkList1:LinkList:DataTable:row2:Value:anchor" tabindex="-1" id="YsiLinkList1:LinkList:DataTable:row2:Value_anchor"
                   href="javascript:OpenNewWindow('../pages/PSDetail.aspx?ObjectType=30&amp;RecordId=300073209');">Audit History</a></li>
        </ul>
    </div>
</div>

如果格式不正确，很抱歉。这个链接有一张HTML的图片。我尝试了很多不同的方法，但我根本不懂如何与HTML交互。以下是我的最新尝试：

Sub GetInvoices()
Dim IE As Object
Dim aEle As HTMLLinkElement
Dim y As Integer
Dim result As String
Dim URL As String

Set IE = CreateObject("InternetExplorer.Application")
URL = Range("Q558").Value

IE.Visible = True
IE.Navigate URL
Do While IE.Busy = True Or IE.ReadyState <> 4: DoEvents: Loop

Set AvailabeLinks = IE.Document.getElementsByTagName("a")
For Each cLink In AvailableLinks
    If cLink.innerHTML = "Third-party Invoice Image" Then
        cLink.Click
    End If
Next cLink
End Sub

Sub-GetInvoices（）
模糊的物体
作为HTMLINKELENT的暗淡aEle
Dim y作为整数
将结果变暗为字符串
将URL设置为字符串
设置IE=CreateObject（“InternetExplorer.Application”）
URL=范围（“Q558”）。值
可见=真实
浏览网址
当IE.Busy=True或IE.ReadyState 4:DoEvents:Loop时执行
Set availableinks=IE.Document.getElementsByTagName（“a”）
对于可用链接中的每个链接
如果cLink.innerHTML=“第三方发票图像”，则
叮当一声
如果结束
下一关
端接头

我在For循环中不断遇到类型不匹配错误。如果能得到任何帮助，我将不胜感激。我只是想学。谢谢