Estive revendo o código fonte da pagina e não encontrei dois elementos que você referencia no código. São esses em destaque abaixo:
.Document.getelementsbytagname("a") e .document.getElementsByTagName("li")
Código: Selecionar todos
'Caso o código Captcha esteja correto, aguarda carregar e abre o link do extrato na mesma página
Set objElementCol = .Document.getelementsbytagname("a")
For Each objLink In objElementCol
If VBA.UCase(objLink.innerText) = VBA.UCase("Ver") Then
.Navigate objLink.href
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Set objElementCol = .document.getElementsByTagName("li")
For Each objError In objElementCol
If VBA.UCase(objError.innerText) = VBA.UCase(strErrorExtrato) Then
MsgBox strErrorExtrato, vbCritical, "Erro DAP"
.Quit
Exit Sub
Mais uma vez, obrigado.
Abraço