Access menu mouseover by VBA

Question

I need your help!

I am developing a VBA application to extract files from an internal system of the company, where after logged in to the site, the displayed screen has a menubar for access to mouseouver, where when passing the mouse on the menu "Reports" opens a list and in the last item of the list that is "Managerial", where I need to do a click event on it to proceed to the next screen, where I will have txtbox date and turn and the buttons to extract the reports. But as I have not yet been able to develop the macro to select the "managerial" menubar item, I am unable to continue.

In short, I need VBA to be able to call the reports menu of javascript where the item is managerial and click to proceed to the next screen.

Below is part of the Java code of the site where I am trying to access:

 <h1 id="nomeSist">
    IRCS - Sistema de Controle de Reparo e Inspeção
  </h1>
  <div id="menu_prime" class="ui-outputpanel ui-widget">
    <table border="0" class="menuStyle">
      <tbody>
        <tr>
          <td>
            <form id="j_id196380812_76b57a10" name="j_id196380812_76b57a10" method="post" action="/tdb-rcs-report/framework/view/dashboard/dashboard.faces" enctype="application/x-www-form-urlencoded">
              <div id="j_id196380812_76b57a10:j_id196380812_76b57a6a" class="ui-menu ui-menubar ui-widget ui-widget-content ui-corner-all ui-helper-clearfix" role="menubar">
                <div tabindex="0" class="ui-helper-hidden-accessible"></div>
                <ul class="ui-menu-list ui-helper-reset">
                  <li<li class="ui-widget ui-menuitem ui-corner-all ui-menu-parent" role="menuitem" aria-haspopup="true">
                    **<a href="javascript:void(0)" class="ui-menuitem-link ui-corner-all" tabindex="-1"><span class="ui-menuitem-text">Relatórios</span><span class="ui-icon ui-icon-triangle-1-s"></span></a>**
                    <ul class="ui-widget-content ui-menu-list ui-corner-all ui-helper-clearfix ui-menu-child ui-shadow" role="menu">
                      <li class="ui-menuitem ui-widget ui-corner-all" role="menuitem">
                        <a tabindex="-1" class="ui-menuitem-link ui-corner-all" href="#" onclick="PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57aa6',formId:'j_id196380812_76b57a10'});return false;"><span class="ui-menuitem-text">Diário</span></a>
                      </li>
                      <li class="ui-menuitem ui-widget ui-corner-all" role="menuitem">
                        <a tabindex="-1" class="ui-menuitem-link ui-corner-all" href="#" onclick="PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57aab',formId:'j_id196380812_76b57a10'});return false;"><span class="ui-menuitem-text">Diário Reparo</span></a>
                      </li>
                      <li class="ui-menuitem ui-widget ui-corner-all" role="menuitem">
                        <a tabindex="-1" class="ui-menuitem-link ui-corner-all" href="#" onclick="PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57ab8',formId:'j_id196380812_76b57a10'});return false;"><span class="ui-menuitem-text">Mensal Reparo</span></a>
                      </li>
                      <li class="ui-menuitem ui-widget ui-corner-all" role="menuitem">
                        <a tabindex="-1" class="ui-menuitem-link ui-corner-all" href="#" onclick="PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a8d',formId:'j_id196380812_76b57a10'});return false;"><span class="ui-menuitem-text">Defeitos por Imagem</span></a>
                      </li>
                      <li class="ui-menuitem ui-widget ui-corner-all" role="menuitem">
                        **<a tabindex="-1" class="ui-menuitem-link ui-corner-all" href="#" onclick="PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a92',formId:'j_id196380812_76b57a10'});return false;"><span class="ui-menuitem-text">Gerencial</span></a>**
                      </li>
                    </ul>
                  </li>

VBA code I am using:

    `Dim HTMLdoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
   sURL = "http://tdbsorsvr034/tdb-rcs-report/"
   'sURL = "http://tdbsorsvr034/tdb-rcs-report/reports/management/"
Set oBrowser = New InternetExplorer
   oBrowser.Silent = True
   oBrowser.timeout = 60
   oBrowser.navigate sURL
   oBrowser.Visible = True

Do
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLdoc = oBrowser.document
  HTMLdoc.all.j_username.Value = "BXIMENES"
  HTMLdoc.all.j_password.Value = "123456"
  HTMLdoc.all.loginBtnId.onclick
  'HTMLdoc.all.[ui-menuitem-link ui-corner-all].Value = "PrimeFaces.ab({source:'j_id196380812_76b57a10:j_id196380812_76b57a92',formId:'j_id196380812_76b57a10'})"




For Each oHTML_Element In HTMLdoc.getElementsByTagName("input")
    If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:


Resume Next`

From now on I thank anyone who can help me!

Thank you!

Answer 1

You didn’t describe the mistake, which makes it a little difficult to help. Your code (up to the commented part) does not contain an appropriate condition to click on the correct link when it is found, so my first guess is that the error is there. Also, understand that link is a collection of objects of type HTML link; each individual link is not referenced by this variable, but by the variable used to iterate the loop (ie, l, and not link).

    Set link = HTMLdoc.getelementsbytagname("a")
    For Each l In link
        If l.innertext = "Gerencial" Then 'Se isso não der certo, coloque um ponto de parada e use o debug para descobrir qual é o innertext do link correto. Às vezes o atributo pode conter espaços no início ou no fim, por exemplo. 
            l.Click
            Exit For
        End If
    Next l