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.

Ajuda para acessar site via excel

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.
romulocesar
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Ago 19, 2015 11:25 pm

Ajuda para acessar site via excel

Mensagem por romulocesar » Qui Fev 18, 2016 8:31 pm

Boa noite Mikel!!!

Quanto tempo!!
Td bem??

Cara,seguinte, voltando a ultima ajuda que lhe pedir!!!
Trabalho na caixa!!E existe um site interno nosso em que rodo meus processos!! Gostaria de automatizar alguns desses meus processos para agilizar os trabalhos do meu dia a dia e facilitar qualquer pessoa rodar esses processos tbm.

Ja tentei varias vezes acessar esse site atraves do excel, mas na hora que o codigo executa a linha de comando para linkar o excel ao explorer aparece a mensagem:"O objeto chamado foi desconectado de seus clientes"

O codigo esta em anexo!!
Ver se é possivel conectar esse site com o excel. A linha que quero acessar esta em vermelho!!
Arrocha ai!!! \o/

Obrigaaaado!!
codigo(1).zip
(16.09 KiB) Baixado 141 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.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1122
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Betim - MG
Contato:

Re: Ajuda para acessar site via excel

Mensagem por Mikel Silveira Fraga » Sex Fev 19, 2016 10:17 am

Fala Rômulo, a quanto tempo. Tudo bem?

Cara, achei que você havia desistido dessa rotina, pois não retornou mais. hehehehe

Olha, dei uma olhada agora e criei uma estrutura, utilizando o Microsoft Internet, conforme já vinhamos trabalhando. Teste o código abaixo, acrescentando os valores nos lugares comentados:

Código: Selecionar todos

Option Explicit

Dim objIE, objLink, objLinkCol, objDoc As Object
Const strURL As String = "" 'Informe o endereço.

Sub LogarCaixa()

    Set objIE = Nothing
    Set objIE = CreateObject("InternetExplorer.Application")
    
    With objIE
        .Navigate URL
        .Visible = False
        Do Until .ReadyState = 4: VBA.DoEvents: Loop
        Set objDoc = .Document
    End With
    
    objDoc.getElementsByName("username").Item.InnerText = "" 'Informe o Login.
    objDoc.getElementsByName("password").Item.InnerText = "" 'Informe a Senha.
    
    Set objLinkCol = Nothing
    Set objLinkCol = doc.getElementsByTagName("A")
    For Each objLink In objLinkCol
        If objLink.InnerText = "Entrar" Then
            objLink.Click
            Exit For
        End If
    Next objLink

End Sub
Segui o código que você me passou e espero que funcione desta vez.

Teste e nos retorne. Abraços e bem vindo de volta.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

romulocesar
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Ago 19, 2015 11:25 pm

Re: Ajuda para acessar site via excel

Mensagem por romulocesar » Sáb Mar 05, 2016 6:41 pm

Mikel Silveira Fraga escreveu:Fala Rômulo, a quanto tempo. Tudo bem?

Cara, achei que você havia desistido dessa rotina, pois não retornou mais. hehehehe

Olha, dei uma olhada agora e criei uma estrutura, utilizando o Microsoft Internet, conforme já vinhamos trabalhando. Teste o código abaixo, acrescentando os valores nos lugares comentados:

Código: Selecionar todos

Option Explicit

Dim objIE, objLink, objLinkCol, objDoc As Object
Const strURL As String = "" 'Informe o endereço.

Sub LogarCaixa()

    Set objIE = Nothing
    Set objIE = CreateObject("InternetExplorer.Application")
    
    With objIE
        .Navigate URL
        .Visible = False
        Do Until .ReadyState = 4: VBA.DoEvents: Loop
        Set objDoc = .Document
    End With
    
    objDoc.getElementsByName("username").Item.InnerText = "" 'Informe o Login.
    objDoc.getElementsByName("password").Item.InnerText = "" 'Informe a Senha.
    
    Set objLinkCol = Nothing
    Set objLinkCol = doc.getElementsByTagName("A")
    For Each objLink In objLinkCol
        If objLink.InnerText = "Entrar" Then
            objLink.Click
            Exit For
        End If
    Next objLink

End Sub
Segui o código que você me passou e espero que funcione desta vez.

Teste e nos retorne. Abraços e bem vindo de volta.

Boa noite meu amigo Mikel!!
Td bom??

cara,ao executar a macro dava um erro logo de cara.
Tem como vc dar uma olhadinha pra mim?
Erro (3).jpg
Erro (3).jpg (240.95 KiB) Exibido 2704 vezes
Valeeeeeu!!!



Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1122
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Betim - MG
Contato:

Re: Ajuda para acessar site via excel

Mensagem por Mikel Silveira Fraga » Sáb Mar 05, 2016 7:05 pm

Romulo, boa noite.

Apenas substitua o valor doc, apresentado no erro, pelo comando objDoc.

Teste e nos retorne.

Abraços e bom final de semana.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

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.


romulocesar
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Ago 19, 2015 11:25 pm

Re: Ajuda para acessar site via excel

Mensagem por romulocesar » Sáb Mar 12, 2016 5:20 pm

Mikel Silveira Fraga escreveu:Romulo, boa noite.

Apenas substitua o valor doc, apresentado no erro, pelo comando objDoc.

Teste e nos retorne.

Abraços e bom final de semana.
Mestre Mikel!!
td bem??

Apareceu esse novo erro ao rodar a linha "do until .readyState = 4: VBA.DoEvents: loop"
erro mikel.jpg
erro mikel.jpg (175.85 KiB) Exibido 2662 vezes
E agora?



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