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

Preenchimento de Campo Login / Senha não funciona.

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.
LeandroSouza
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Jan 22, 2020 10:01 am

Preenchimento de Campo Login / Senha não funciona.

Mensagem por LeandroSouza »

Olá, estou iniciando um projeto de interação com a Web. Meu objetivo final é extrair um relatório de um sistema Intranet da minha empresa. Porém não estou conseguindo fazer o Logon. Em algumas tentativas em uma outra oportunidade eu consegui preencher os dados, mas desta vez já gastei algumas horas tentando e não obtive sucesso.. Como o site só é acessível através do Domínio em questão, irei informar o código-fonte nas imagens em anexo.

Código: Selecionar todos

Const User = "NomeDoUsuário"


Sub LoginAtlas()
        


    Dim Obrowser As InternetExplorer
    Set Obrowser = New InternetExplorer
    With Obrowser
        .Silent = True
        .Visible = True
        .Navigate "atlas/nethome/"
        
    End With
    Do Until Obrowser.ReadyState = READYSTATE_COMPLETE
    Loop

    Obrowser.Document.all.Item("usuario").InnerText = "NomeDoUsuário"
 
'	Estas foram tentativas, sem sucesso também.
'    IE.Document.all.Frames(, 0).Item("usuario").innerText = "NomeDoUsuário"
'    IE.Document.Frames(, 0).all("usuario").innerText = "NomeDoUsuário"
'    IE.Document.all("usuario").innerText = "NomeDoUsuário"
Recebi 2 Tipos de erro:
Com o código acima:
Erro em tempo de execução '91': Váriavel do Bloco with não foi definida;

Substituindo a linha por esta tentativa:

Código: Selecionar todos

    Obrowser.Document.Frames(, 0).all("usuario").InnerText = "NomeDoUsuário"
Erro em tempo de execução '-2147467262 (80004002)': Não há suporte para esta interface.

Código Fonte abaixo:

Imagem
Anexos
Código-Fonte Atlas.png
Código-Fonte Atlas.png (79.22 KiB) Exibido 5863 vezes


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.


Raygsson
Manda bem
Manda bem
Mensagens: 118
Registrado em: Sex Jan 31, 2020 8:06 pm

Re: Preenchimento de Campo Login / Senha não funciona.

Mensagem por Raygsson »

tenta assim:

Obrowser.Document.all("usuario").innerText = "NomeDoUsuário"


Responder