ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

a página da web que você está visitando está tentando fechar a janela.deseja fechar a janela?

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.
Juan Fernandes Silva
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Out 12, 2021 3:25 pm

a página da web que você está visitando está tentando fechar a janela.deseja fechar a janela?

Mensagem por Juan Fernandes Silva »

boa tarde meu queridos (as) precisava de uma pequena ajuda, fiz o código abaixo para entrar no famoso WCS "wamas" porém na hora H ele trava com a seguinte notificação

a página da web que você está visitando está tentando fechar a janela.deseja fechar a janela?

segue código:

Sub teste()

Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://wcsjundiai.perdigao.com.br:8080/ ... /login.jsp"
ie.Visible = True

'espera até terminar de carregar
Do While ie.Busy And ie.readyState <> "readystate_complete"
DoEvents
Loop

ie.document.getElementsByTagName("input")(0).Focus
ie.document.getElementsByTagName("input")(0).Value = "419128"

ie.document.getElementsByTagName("input")(1).Focus
ie.document.getElementsByTagName("input")(1).Value = "1234"


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

For Each objElement In objElementCol
If objElement.Value = "Entrar" Then
objElement.click
Exit For
End If
Next objElement


é bem aqui que trava


no aguardo......


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