none
Capturar URL Atual - IE9 RRS feed

  • Pergunta

  • 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,
    quarta-feira, 16 de abril de 2014 11:25

Respostas

  • Problema resolvido.

    Function Aguarda(ie As InternetExplorer)

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

    End Function

    • Marcado como Resposta Luiz Mesquita quarta-feira, 16 de abril de 2014 14:45
    quarta-feira, 16 de abril de 2014 14:43

Todas as Respostas

  • 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.

    quarta-feira, 16 de abril de 2014 13:19
  • Problema resolvido.

    Function Aguarda(ie As InternetExplorer)

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

    End Function

    • Marcado como Resposta Luiz Mesquita quarta-feira, 16 de abril de 2014 14:45
    quarta-feira, 16 de abril de 2014 14:43