Capturar URL Atual - IE9

Question

Olá pessoal, tudo bem?

Estou desenvolvendo uma macro para acessar uma
página da web e fazer o login com usuário e senha. Até aí tudo bem,
conforme código abaixo:

Dim ie As InternetExplorer
Set ie = New InternetExplorer
Dim Cnpj, InscEst As String
ie.Navigate "http://xxx.xx.xx.xx/login_form.asp"
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
ie.Document.All("cnpj").InnerText = Cnpj
ie.Document.All("insc_est").InnerText = InscEst
ie.Document.All("btnOk").Click
ie.Visible = True

O problema é que quando a macro ativa o botão Ok (última linha do código acima), o site direciona para a próxima página.
Quando
sou direcionado, o objeto ie fica com a referência do link da página
anterior. Consequentemente, quando sou direcionado para a nova página
não consigo acessar os TextBox, e a macro acusa erro na linha abaixo:

ie.Document.All("TxtNome").InnerText = Usuario

Pelo
que entendi, o objeto ie não conhece o componente "TxtNome", porque o
link não foi atualizado. Só não sei como atualizar o link atual no
objeto ie.
Alguém pode me ajudar?


Obrigado,

Answer 1

Atualizando a informação do problema.

Debugando o código percebi que a URL é atualizada sim, porém em tempo de execução está apresentando o seguinte erro:

Erro em tempo de execução 91: A variável do objeto ou a variável do bloco 'With' não foi definida.

Answer 2

Problema resolvido.

Function Aguarda(ie As InternetExplorer)

    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
   
    Loop

End Function