Clicar em um botão ...
 
Notifications
Clear all

Clicar em um botão em uma pagina na web


Bruno Luiel
(@bruno-luiel)
Active Member Registered
Entrou: 3 semanas atrás
Posts: 5
Topic starter  

Bom dia colegas! Eu estou engatinhando ainda no VBA e confesso ficar quase doente quando não consigo terminar um pequeno projeto, mas enfim, Estou tentando fazer uma consulta em lote de entradas de notas fiscais, e até agora consegui dar alguns passos, mas estou travado no momento de clicar em no botão "consulta nota" e não consegui, segue abaixo o código que uso:

Sub buscador()

Dim L As Long
L = 2 ' insira esta chave de acesso para teste na célula A2: 35210243999630000124550020006076261793415090

Set Ie = CreateObject("InternetExplorer.application")

Ie.navigate "https://portalcontribuinte.sefin.ro.gov.br/Publico/consultaInternamentoNFe.jsp"
Ie.Visible = True

Do While Ie.busy And Ie.ReadyState <> 
DoEvents
Loop

Ie.document.getelementsbytagname("input")(0).Click 
Ie.document.getelementsbytagname("input")(2).Value = Cells(L, 1)
Ie.document.getelementsbyclassname("boton a")(0).Click 'Esta é a linha que não consigo clicar no botão que faz a consulta

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.


ResponderCitar (Quote)
Raygsson
(@raygsson)
Eminent Member Registered
Entrou: 8 meses atrás
Posts: 48
 

Você quase conseguiu efetuar o click rs

Errou o nome da Class, o correto seria "boton left" e não "boton a".

Também foi necessário direcionar o click pra Tag "a" vinculada da Class "boton left":

Ie.document.getelementsbyclassname("boton left")(0).getelementsbytagname("a")(0).Click
 
Outra opção seria executar diretamente pelo VBA o JavaScript vinculado ao botão:
Call IE.document.parentWindow.execScript("SEFIN.forms.consultaInternamento();", "JavaScript")
 
Duas abordagens válidas para efetuar este click
 

EdsonBR curtiu
ResponderCitar (Quote)
Bruno Luiel
(@bruno-luiel)
Active Member Registered
Entrou: 3 semanas atrás
Posts: 5
Topic starter  

@raygsson Mano, muito, mas muito obrigado mais uma vez! 


ResponderCitar (Quote)