Vídeo recomendado
https://youtu.be/diWPPPhW-9E

BOTÃO SUBMIT SEM ID

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
ELVISOLIVEIRA
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Seg Dez 28, 2015 7:41 pm

BOTÃO SUBMIT SEM ID

Mensagem por ELVISOLIVEIRA »

Tenho uma planilha com um código macro que acessa uma pagina de um site, e nessa pagina existem 2 (dois) botões sem ID e não consigo encontar um código que simule o Click no 2º botão, o botão "Consultar". Segue abaixo o codigo fonte da pagina dos dois botões, o que esta em vermelho é o do botão de meu interesse:

<input type="button" value="Voltar" class="botao" onclick="window.location='inicial.action';" style="margin-right:0"></input>
&nbsp;&nbsp;&nbsp;
<input type="button" onclick="validaFormConsulta();" value="Consultar" class="botao" style="margin-right:0"></input>

qual codigo ideal para identificar esse botão e simular o click para que eu posso obter a consulta na pagina da web?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: BOTÃO SUBMIT SEM ID

Mensagem por Mikel Silveira Fraga »

Elvis, boa tarde.

Olha, vendo os códigos dos dois botões que você postou, a melhor maneira ativar um dos elementos abaixo, seria criando uma rotina que passa por todos os elementos Input da página, testando o Atributo Value do elemento. Seria algo assim:

Código: Selecionar todos

Dim objElementCol As Object
Dim objElement As Object

Set objElementCol = ie.document.getElementsByTagName("input")

For Each objElement In objElementCol
    If objElement.Value = "Consultar" Then
        objElement.Click
        Exit For
    End If
Next objElement
Usando esse código como base, fica fácil para você conseguir adaptar seu código.

Teste e nos retorne o resultado.

Forte abraço!!!


ELVISOLIVEIRA
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Seg Dez 28, 2015 7:41 pm

Re: BOTÃO SUBMIT SEM ID

Mensagem por ELVISOLIVEIRA »

Bom dia Mikel
O codigo que voce me passou deu certo, muito obrigado, voce me ajudou a fechar um projeto que estava a muitos dias trabalhando no escritório
Deus te abençoe!


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: BOTÃO SUBMIT SEM ID

Mensagem por Mikel Silveira Fraga »

Elvis, bom dia.

Cara, muito bom saber que pude ajudar.

Depois, para facilitar a identificação, de esse tópico como resolvido.

Dessa forma, se outras pessoas buscarem um problema parecido, vão saber que o mesmo já foi finalizado.

Forte abraço e excelente final de semana.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder