Html Excel Web抓取-ul列表项上的fireEvent

提前感谢您提供的任何帮助。我正在尝试激活Excel VBA的链接，以更改仪表板显示的数据视图。我已经成功地执行了登录和导航过程，并且相信在这一步之后，scraping元素将顺利运行。我不相信我瞄准了正确的元素，或者没有正确地构建VBA序列

我试图在下面的HTML中触发“顾问视图”：

<div style="width:100%; clear:both">
    <ul class="tab_menu clearfix" style="padding-top:5px;">
        <li id="site_ti" class="table_tab_item">
            <a href="#" onclick="update_table_tab('site'); return false;">By Site</a>
        </li>
        <li id="director_ti" class="table_tab_item">
            <a href="#" onclick="update_table_tab('director'); return false;">By Director</a>
        </li>
        <li id="team_lead_ti" class="table_tab_item">
            <a href="#" onclick="update_table_tab('team_lead'); return false;">By Team Manager</a>
        </li>
        <li id="consultant_ti" class="table_tab_item">
            <a href="#" onclick="update_table_tab('consultant'); return false;">By Consultant</a>
        </li>
    </ul>

下面是我调用的触发顾问视图的函数

Function FnConsultantView(ObjPage)
With ObjPage

Set li = .getElementByValue("consultant")
    With li
        .Focus
        .FireEvent "onclick"
    End With
End With
MsgBox ("Operation Completed")

---

我还尝试使用以下帖子中的元素，但运气不好：

它与FireEvent一起工作

Function FnConsultantView(ObjPage) 
With ObjPage .getElementById ("consultant_ti") .getElementsByTagName("a")(0).FireEvent ("onclick") 
End With MsgBox ("Operation Completed")

---

getElementByValue

是什么？运行该代码时会发生什么情况？请尝试ObjPage.Document.getElementByID（“consultant_ti”）.getElementsByTagName（“a”）（0）。单击。这应该单击已使用的项以及getElementByID，它将运行到操作完成提示，但不会激活选项卡。它与FireEvent一起工作！非常感谢。函数FnConsultantView（ObjPage）带有ObjPage.getElementById（“consultant_ti”）.getElementsByTagName（“a”）（0）。FireEvent（“onclick”）以要处理单击事件的MsgBox（“操作完成”）结束。FireEvent响应首先发生的事件（单击）。

Function FnConsultantView(ObjPage) 
With ObjPage .getElementById ("consultant_ti") .getElementsByTagName("a")(0).FireEvent ("onclick") 
End With MsgBox ("Operation Completed")