Bom dia pessoal!
Gostaria de sanar uma dúvida, estou tentando automatizar um procedimento aqui na empresa através da internet explorer, entretanto, quando eu executo a macro ela abre a internet explorer tranquilamente, mas, na hora de selecionar os campos e preenche-los, aparece o seguinte erro:
Erro em tempo de execução '-2147467259 (80004005)':
O método 'Busy' do objeto 'IWebBrownser2' falhou
Alguém poderia me explicar o porque do mesmo?
Código Utilizado:
Private Sub CommandButton1_Click()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo...
.Navigate ("gpb.promaxcloud.com.br")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.All("Usuario").Focus
.Document.All("Usuario").Value = Cells(2, 1)
.Document.All("Senha").Focus
.Document.All("Senha").Value = Cells(2, 1)
.Document.All("BtnConfirm").Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With
End Sub
OBS: O erro ocorreu exatamento na linha do código que está pintada de amarelo.
Agradeço desde já!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E