Objetivo: Abrir o link, completar o login com o texto de uma célula que terá a informação, completar, da mesma forma, o espaço de senha e apertar posteriormente no botão para “entrar”.
Erro encontrado: Erro em tempo de execução ‘91’ - A variável do objeto ou a variável do bloco “With” não foi definida
Código VBA:
Código: Selecionar todos
Const sSiteName = "http://mime.lzt.com.br"
Sub login()
Dim UserName As String, Password As String, LoginData As Worksheet
Set LoginData = ThisWorkbook.Worksheets("PAINEL")
UserName = LoginData.Cells(5, 3).Value
Password = LoginData.Cells(6, 3).Value
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate sSiteName
ieBusy ie
.Visible = True
Dim oLogin As Object, oPassword As Object
Set oLogin = .Document.getElementsByName("login")
Set oPassword = .Document.getElementsByName("senha")
oLogin(0).innerText = UserName
oPassword(0).innerText = Password
.Document.forms(0).submit
End With
End Sub
Sub ieBusy(ie As Object)
Do While ie.Busy Or ie.ReadyState < 4
DoEvents
Loop
End Sub