Código: Selecionar todos
Const User = "NomeDoUsuário"
Sub LoginAtlas()
Dim Obrowser As InternetExplorer
Set Obrowser = New InternetExplorer
With Obrowser
.Silent = True
.Visible = True
.Navigate "atlas/nethome/"
End With
Do Until Obrowser.ReadyState = READYSTATE_COMPLETE
Loop
Obrowser.Document.all.Item("usuario").InnerText = "NomeDoUsuário"
' Estas foram tentativas, sem sucesso também.
' IE.Document.all.Frames(, 0).Item("usuario").innerText = "NomeDoUsuário"
' IE.Document.Frames(, 0).all("usuario").innerText = "NomeDoUsuário"
' IE.Document.all("usuario").innerText = "NomeDoUsuário"
Com o código acima:
Erro em tempo de execução '91': Váriavel do Bloco with não foi definida;
Substituindo a linha por esta tentativa:
Código: Selecionar todos
Obrowser.Document.Frames(, 0).all("usuario").InnerText = "NomeDoUsuário"
Código Fonte abaixo: