Notifications
Clear all

Erro em tempo de execução -2147417848 (80010108)

3 Posts
3 Usuários
0 Reactions
2,176 Visualizações
(@aeciof)
Posts: 1
New Member
Topic starter
 

Olá pessoal!
Sou novo no fórum e estou precisando de um help com uma macro que do nada parou de funcionar.
Trata-se de uma macro para acessar uma página web, realizar o login e copiar as informações de um relatório específico e colar no Excel, mas de uma semana pra cá, ao tentar rodar a macro, o seguinte erro é exibido:

"Erro em tempo de execução -2147417848 (80010108) "ERRO DE AUTOMAÇÃO. O objeto chamado foi desconectado de seus clientes"
Se puderem me ajudar, agradeço muito!!! Minhas últimas esperanças!!! rs

O código é o seguinte:


Sub ConsultaTristerix()
     Dim Dc_Usuario As String
     Dim Dc_Senha As String
     Dim Dc_URL As String
     Dim Dc_PAUSAS
     Dim Dc_LOGIN
     Dim ieDoc As Object
     Dim ieTable As Object
     Dim clip As DataObject
     Dim objIE As New InternetExplorer 'Referencie "Microsoft Internet Controls"
     
     'Abre o IE
     objIE.Visible = True
         
     'Define os dados de acesso e link da página de login e demais relatórios
     Dc_Usuario = Range("B14").Value
     Dc_Senha = Range("D14").Value
     Dc_URL = "http://callcenter-hpo.telemar/login/signin"
     Dc_PAUSAS = Range("D5").Value
     Dc_LOGIN = Range("D7").Value
     
     'Navega até o link para a página de login TRISTERIX
     objIE.Navigate2 Dc_URL
     
     'Espera até que o IE carregue por completo
     Do Until objIE.ReadyState = READYSTATE_COMPLETE
         DoEvents
     Loop
     
     'Nessa parte você deve conhecer a propriedade "name" dos elementos input do site que irá logar
     objIE.Document.all("username").innerText = Dc_Usuario
     objIE.Document.all("password").innerText = Dc_Senha
     
     'Nome (propriedade name) do formulário a ser submetido
     objIE.Document.forms(0).submit
     
     'Espera até que o IE carregue por completo
     Do Until objIE.ReadyState = READYSTATE_COMPLETE
         DoEvents
     Loop
     
     'Navega até o relatório de pausas
     objIE.Navigate2 Dc_PAUSAS

        Do While objIE.Busy: DoEvents: Loop
        Do Until objIE.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
 
     'Seleciona todos o itens da tela e cola no Excel
        objIE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
        objIE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
 
     
 
Postado : 16/10/2015 7:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Já consultou o site da ms?
https://support.microsoft.com/pt-br/kb/186063

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/10/2015 9:45 am
(@messiasmbm)
Posts: 223
Estimable Member
 

Fica quase impossível sem vc mandar seu arquivo...

 
Postado : 16/10/2015 10:27 am