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

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 »

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 339 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: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Ajuda para acessar site via excel

Mensagem por Mikel Silveira Fraga »

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.


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

Re: Ajuda para acessar site via excel

Mensagem por romulocesar »

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 5445 vezes
Valeeeeeu!!!


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

Re: Ajuda para acessar site via excel

Mensagem por Mikel Silveira Fraga »

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.


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 »

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 5403 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