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!