0

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!

1 Resposta 1

0

Você não descreveu o erro, o que dificulta um pouco ajudar. Seu código (até a parte comentarizada) não contém uma condição adequada para clicar no link correto quando for encontrado, portanto meu primeiro palpite é de que o erro esteja aí. Além disso, perceba que link é uma coleção de objetos do tipo link HTML; cada link individual não é referenciado por essa variável, e sim pela variável usada para iterar o loop (ou seja, l, e não 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
19
  • César obrigado pela ajuda! Então, meu código não abre erro algum apenas não executa nada após o acesso. O site é intranet, após o login ele abre a tela inicial onde tem um menu dropdown com 2 itens e um deles é o “Relatórios” que ao passar o mouse encima abre uma lista com os itens e o último é o “gerencial” porém nao encontrei um id válido para ele e o link que tem para esta tela ele tem um esquema de atualização de primefaces que atualiza o final do link a cada acesso. Tipo um contador de acesso sei lá! Não entendo muito bem! Por isso não consigo usar o link pois não é fixo. Commented 23/02/2020 às 0:05
  • Na verdade eu encontrei esse código na web e fiz algumas alterações para usar ele. Porém agora achei um mais fácil de entendimento e passei a usar o outro código que alterei na pergunta Commented 23/02/2020 às 0:25
  • A parte relevante é o For... Each, o resto é login. O login você disse que ele faz certinho, não é? Então vamos pra parte de clicar no menu "gerencial". Commented 23/02/2020 às 11:31
  • No HTML que você transcreveu, o atributo onclick que desejamos rodar está no elemento a, ou seja: queremos clicar no elemento a correto. Pela sua explicação, o que temos para identificar o link é apenas o texto interno dele (ou a posição dentro dos elementos-pai, mas esse caminho pode ser muito vulnerável a alterações de leiaute). Commented 23/02/2020 às 11:36
  • Portanto, temos que iterar os elementos a, até achar o que tem texto interno contendo "Gerencial". Commented 23/02/2020 às 11:38

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .