Página 1 de 1

Ajuda para acessar site via excel

Enviado: Qui Fev 18, 2016 8:31 pm
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 141 vezes

Re: Ajuda para acessar site via excel

Enviado: Sex Fev 19, 2016 10:17 am
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.

Re: Ajuda para acessar site via excel

Enviado: Sáb Mar 05, 2016 6:41 pm
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 2703 vezes
Valeeeeeu!!!

Re: Ajuda para acessar site via excel

Enviado: Sáb Mar 05, 2016 7:05 pm
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.

Re: Ajuda para acessar site via excel

Enviado: Sáb Mar 12, 2016 5:20 pm
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 2661 vezes
E agora?