Tomás Vásquez Fórum

Boa noite, amigos.
Essa é a segunda vez que estou criando um tópico e o primeiro também foi um problema similar.

O que acontece é que eu estou fazendo a interação com um sistema (em um site) para extração de um relatório.

Já é o terceiro programa do tipo que faço e diferentemente dos outros dois não estou conseguindo achar a solução por conta própria.

O objeto é:

<a title="Movimentação (Apsis)" class="Menu_0 Menu_1 Menu_7" id="Menut16" onclick="TreeView_SelectNode(Menu_Data, this,'Menut16');" href="javascript:__doPostBack('Menu','sRelatórios\\Indoor\\MTUyMTI3ODAzMjE3NjAwNDk2NTU5MTYxMTY1NDAxNzQ2Njc0MDg2MTkwMjA4MjkxODQzNjYyMzA2ODE3ODI5NTg2ODAyMTI2NjUxNzgzMTkyNjAyMDQ5NDE1MTY3ODAxMzg2OTIxNDQxNTk2OTMwMTk0MTI5MjI5MjAxODdAcGFnZXMvcmVsYXRvcmlvcy9pbmRvb3IvTW92aW1lbnRhY2FvQXBzaXMuYXNweA==')">Movimentação (Apsis)</a>

Já tentei: .document.all.item("Menut16").click
IE.Document.getElementById("Menut16").Click
IE.Document.getElemenstbyClassName("Menu_0 Menu_1 Menu_7").item(16).Click ~> note que aqui tentei diversos itens
IE.Document.getElemenstbyTagName("a").item(nº).Click ~> também tentei diversos numeros de item (e assim como acima não houve clique em nada)

Em todos aparece erro da classe with. Ou seja: não está localizando o objeto para clicar.
Quando tentei a instrução de executar o javascript não apareceu nenhum erro mas não houve o clique.

Obrigado!

Bah tem coisa que deixa a gente meio doido, mas tenta isso para ver amigo, mas vamos tentar amigo....

Dim objElementCol As Object
Dim objElement As Object

Set objElementCol = IE.Document.getElementsByTagName("input")

For Each objElement In objElementCol
If objElement.Value = "Cadastrar" Then
objElement.Click
Exit For
End If
Next objElement


Att.


molde ao seu favor amigo.

Um grande abraço.

Julio Mangilli escreveu: ↑Sex Nov 08, 2019 7:48 am Bah tem coisa que deixa a gente meio doido, mas tenta isso para ver amigo, mas vamos tentar amigo....

Dim objElementCol As Object
Dim objElement As Object

Set objElementCol = IE.Document.getElementsByTagName("input")

For Each objElement In objElementCol
If objElement.Value = "Cadastrar" Then
objElement.Click
Exit For
End If
Next objElement


Att.


molde ao seu favor amigo.

Um grande abraço.

Não consegui, amigo.
Talvez a solução seja executar o Java script, mas não sei como.
Preciso muito de ajuda

Bah quero muito ajudar, pena que não consigo ter acesso ao mesmo para tentar, fica difícil assim e imagino que deve estar tentando de tudo,

""""IE.Document.getElemenstbyClassName("Menu_0 Menu_1 Menu_7").item(16).Click ~> note que aqui tentei diversos itens """"'

Tentou somente """"IE.Document.getElemenstbyClass("Menu_0 Menu_1 Menu_7").value ou__
IE.Document.getElemenstbyId("Menut16").value

Tentando validar o elemento primeiro para achar e depois mandar clicar? a programação em seus testes achou o elemento ele somente não consegue clicar ou nem o elemento ele achou ?

abraços

Julio Mangilli escreveu: ↑Seg Nov 11, 2019 1:38 pm Bah quero muito ajudar, pena que não consigo ter acesso ao mesmo para tentar, fica difícil assim e imagino que deve estar tentando de tudo,

""""IE.Document.getElemenstbyClassName("Menu_0 Menu_1 Menu_7").item(16).Click ~> note que aqui tentei diversos itens """"'

Tentou somente """"IE.Document.getElemenstbyClass("Menu_0 Menu_1 Menu_7").value ou__
IE.Document.getElemenstbyId("Menut16").value

Tentando validar o elemento primeiro para achar e depois mandar clicar? a programação em seus testes achou o elemento ele somente não consegue clicar ou nem o elemento ele achou ?

abraços

Ele não encontra os elementos.
O .value também não foi possível!

E não tem nenhum alerta ou mensagem que dá antes dessa ação? fazendo a pagina ficar em segundo plano?, provocando esse falta de encontro.
Pode ocorrer....

Olá amigo,

Nesse exemplo tem mais situações, quem sabe ajude você.
Avisa ai se conseguir brother.

Abraços.

Julio Mangilli escreveu: ↑Qui Nov 14, 2019 7:58 am Olá amigo,

Nesse exemplo tem mais situações, quem sabe ajude você.
Avisa ai se conseguir brother.

Abraços.

Esqueceu de me passar a senha para poder acessar o VBA

e corrigindo a mensagem anterior apenas com o id ela não encontra. Com as outras declaraçõs ele apenas não faz nada (não clica)

Eita noix, auhauhauahuahauhauah

Segue a planilha certa amigo auhauahuahauha

Desculpa ae.