Re: Copiar dados da internet com Vba
Enviado: Seg Mar 07, 2016 11:24 am
Caro professor, brilhante suas contribuições. Tem ajudado muito!
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")
Com relação à barra de progresso, ainda que ela fique parada aguardando carregamento de página o usuário veria que algo está sendo feito. Estou tentando te enviar o arquivo, mas diz que a extensão .xlsm não é permitida. Posso enviar em seu email?
Mais uma vez, obrigado.
Abraço
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