Tomás Vásquez Fórum

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

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: 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.

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?
Valeeeeeu!!!

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.

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"
E agora?