Ir ao conteúdo

Posts recomendados

Postado

Boa noite

 

Eu consigo manipular os site pelo IE normalmente. porém quando estou tentando executar uma pagina que esta no XAMPP local e manipular os campos pelo VBA 
Ele apresenta um erro: 


Erro em tempo de execução: '-2147417848(80010108)';
Erro de automação
O objeto chamado foi desconecado de seus Clientes

 

image.png.b9755a1aff0f72d97954c5240f0df46f.png

Sub ENVIO()


Dim IE As Object
Dim ARQ As String

If Len(Day(Now())) = 1 Then
dia = 0 & Day(Now())
Else
dia = Day(Now())
End If


ARQ = "C:\xampp\htdocs\xxx\xxxx.CSV"
MsgBox ARQ
    Set IE = CreateObject("InternetExplorer.application")
    
    With IE
        .Visible = True
        .navigate ("http://localhost:8080/xx/xx/exemplos/xxx.html")
    
        Application.Wait Now + TimeValue("00:00:04")
    

        
        .document.getElementById("AUD").Focus
        .document.getElementById("AUD").Value = ARQ
        .document.getElementById("ENVIAR").Focus
        .document.all("ENVIAR").Click
        

        
        While .Busy Or .readyState <> 4:
        DoEvents:
        Wend
            
         Debug.Print .LocationURL
                     
    End With
     

End Sub
 

Postado

Descobri como resolver


Para esta questa de páginas localizadas localmente "Intranet", se faz necessário a utilização de uma outra classe 

 

Segue abaixo:

Dim IE As InternetExplorerMedium 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...