Olá,
Estou tentando fazer uma macro com VBA para automatizar um processo na empresa em que trabalho. Para isso a macro deve abrir o IE e entrar no site do portal da empresa.
Segue o código escrito dentro de um Módulo:
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub Teste1()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("https://portaldeacessos.visanet.corp/IDMProv/jsps/login/Login.jsp")
ie.Visible = True
ShowWindow ie.hwnd, 3
While ie.Busy
DoEvents
Wend
For Each l In ie.Document.GetElementsByID("user")
l.Value = "teste"
Next
End Sub
O problema é que não consigo fazer ela interagir com nada. Qualquer coisa que eu tente fazer após entrar no site do portal dá o erro "O método 'Document' do objeto 'IWebBrowser2' falhou". Mas sei que essa parte abaixo está correta porque já usei em outra macro que funcionou.
While ie.Busy
DoEvents
Wend
Quando marco a linha do FOR para depurar, espero a página carregar e dou F8, ocorre esse outro erro: "Erro de automação. O objeto foi desconectado de seus clientes".
Quando rodo o mesmo programa substituindo o site do portal pelo google, consigo escrever na caixa de pesquisa do Google sem erros
Meu foco está em conseguir resolver o erro "desconectado de seus clientes", porque ele vem aparecendo com mais frequencia. Alguém sabe como fazer?
Obrigado