Clicar em botão web

[Luiza_Camponogara]

Olá pessoal,

estou tentando fazer login em um site a partir do VBA, consegui para vários sites mas um em específico não está funcionando e não entendo porque. Alguém poderia ajudar? :)

Segue o site e o código:

Site:https://servicosonline.cpfl.com.br/agencia-webapp/#/login

 

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
   sURL = "https://servicosonline.cpfl.com.br/agencia-webapp/#/login"
Set oBrowser = New InternetExplorer
   oBrowser.Silent = True
   oBrowser.timeout = 60
   oBrowser.navigate sURL
   oBrowser.Visible = True

Do
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.document

  HTMLDoc.all.documentoCPF.Value = "cpf"
  HTMLDoc.all.seuCodigo.Value = "codigo"
  

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
    If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:

Resume Next
End Sub