如何使用vba点击<ul>的<li>的<a>元素？

Sub ClickElement()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim Elements As Object
    Dim Element As Object
    
    ' 创建 Internet Explorer 对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置 IE 对象属性
    With IE
        .Visible = True ' 设置为 True 以便在浏览器中可见
        .navigate "网页地址" ' 输入要访问的网页地址
        Do While .Busy Or .readyState <> 4 ' 等待页面加载完成
            DoEvents
        Loop
        
        ' 获取 HTML 文档对象
        Set HTMLDoc = .document
        Set Elements = HTMLDoc.getElementsByTagName("ul") ' 获取所有的 <ul> 元素
        
        ' 遍历 <ul> 元素
        For Each Element In Elements
            ' 找到你想要点击的 <ul> 元素
            If Element.getAttribute("class") = "your-class-name" Then ' 通过 class 属性进行筛选
                ' 获取 <li> 元素集合
                Set LIs = Element.getElementsByTagName("li")
                
                ' 遍历 <li> 元素
                For Each LI In LIs
                    ' 获取 <a> 元素集合
                    Set As = LI.getElementsByTagName("a")
                    
                    ' 遍历 <a> 元素
                    For Each A In As
                        ' 找到你想要点击的 <a> 元素
                        If A.getAttribute("href") = "目标链接地址" Then ' 通过 href 属性进行筛选
                            ' 模拟点击 <a> 元素
                            A.Click
                            Exit Sub ' 点击成功后退出循环
                        End If
                    Next A
                Next LI
                
                Exit For ' 点击成功后退出循环
            End If
        Next Element
        
        .Quit ' 退出 Internet Explorer
    End With
End Sub