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.

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 » Qua Jan 22, 2020 1:14 pm

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 4370 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
Colaborador
Colaborador
Mensagens: 66
Registrado em: Sex Jan 31, 2020 8:06 pm

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

Mensagem por Raygsson » Sáb Fev 01, 2020 10:22 pm

tenta assim:

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



Responder