Skip to main content
4 de 5
título editado

Acessar menu mouseover por VBA - Respondido

Necessito da ajuda de vocês! Estou desenvolvendo uma aplicação em VBA para extrair arquivos de um sistema interno da empresa, onde apos logado no site, a tela exibida tem um menubar por acesso a mouseouver, onde ao passar o mouse encima do menu "Relatórios" abre uma lista e no ultimo item da lista que é "Gerencial", onde preciso fazer um evento de click nele para prosseguir para a próxima tela, onde terei txtbox de data e turno e os botões para extrair os relatórios. Mas como ainda não consegui desenvolver a macro para selecionar o item "gerencial" do menubar, estou impossibilitado de prosseguir. Resumindo, preciso que o VBA consiga chamar o menu relatorios do javascript onde esta o item gerencial e click para prosseguir para a proxima tela.

Segue abaixo parte do codigo Java do site onde estou tentando o acesso:

 <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>

Codigo VBA que estou usando:

    `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`

Desde ja agradeço a quem puder me ajudar!

Obrigado!