[Resolvido]Logica de Error

Tenho um código onde baixo planilhas, renomeio, e guardo nas pastas e tudo mais.

porem é meio lento, pois coloco pausas de vários segundos em um comando e outro, para dar tempo da pagina carregar, estou tentando aplicar uma logica onde se der erro o código para por 1 segundo e tenta novamente e se não der erro ele sai do loop.



For i = 1 To 10 ' o loop tentara 10 vezes

If Error Then ' se der erros ( aqui esta o problema não sei como usar uma logica aqui )
Sleep 1000 'esperar 1 segundo

Else
driver.FindElementByXPath("//*[@id='root']/div/div/form/div/div/div/button/span").Click 'clicar no botão
GoTo sair
End If

Next ' ir para a próxima tentativa

sair: msgbox("ok deu certo")

Alex

Veja se é isso que pretende.

Código:


For i = 1 To 10 ' o loop tentara 10 vezes
On Error Resume Next
If Error Then ' se der erros ( aqui esta o problema não sei como usar uma logica aqui )

Pausa 1 'esperar 1 segundo

Else
driver.FindElementByXPath("//*[@id='root']/div/div/form/div/div/div/button/span").Click 'clicar no botão
GoTo sair
End If
Next ' ir para a próxima tentativa
sair: MsgBox ("ok deu certo")


Função Pausa

Código:


Public Function Pausa(Nsec As Variant)
'uso: Pausa 1  = 1 segundo
On Error GoTo Err_Pausa
    Dim PausaTime As Variant, start As Variant
    PausaTime = Nsec
    start = Timer
    Do While Timer < start + PausaTime
    DoEvents
    Loop
    Exit_Pausa:
 Exit Function

Err_Pausa:
    SsgBox Err.Number & " - " & Err.Description, vbCritical, "Pausa()"
Resume Exit_Pausa
End Function


{ }'s

Balem

infelizmente não funciono como o esperado, pois ocorre o erro e ele pausa, porem ele esta pulando a opção de clicar no botão

Colocou essa frase?

On Error Resume Next

Ela diz ao Access: Se encontrar algum erro, continue na próxima (linha).


É ela que vai deixar tratar o erro na linha seguinte.

Aqui foi testado antes de disponibilizar.

coloquei,

agora estou tentando de uma maneira mais simples assim. ==== Tipo


se der erro pular para a ultima linha do loop e se der certo click no botão e sai do loop mas ainda esta dando erro


For i = 1 To 20 ' o loop tentara 10 vezes
driver.Wait (1000)
On Error GoTo pular ' se der erros ( aqui esta o problema não sei como usar uma logica aqui )

driver.FindElementByXPath("//*[@id='root']/div/div/form/div/div/div/button/span").Click 'clicar no botão
GoTo sair

pular:

Next ' ir para a próxima tentativa
sair: 'MsgBox ("ok deu certo")

Poste o código completo quero ver.

Obrigado !!

Pode dizer o que "tava" pegando?

Ainda nao tenho certeza por que não entendo muito de vba mas acredito q tinha linhas em branco, e parece q era isso

Tá

Só vou te dar uma dica, não precisa responder.

Na pagina de VBA quando quiser depurar o código pra ver em que linha está o erro, faça isso:

Antes de de executar o código clique no inicio da linha onde começa o código, digo, por exemplo,

nessa linha você clicaria a esquerda do Antes.

Assim que clicar, vai aparecer uma bolinha no local e a frase fica também pitada em ocre.

Chamamos isso de ponto de interrupção, como o nome diz, o código para aí quando, acionar para executá-lo.

Então cada vez que apertar a tecla F8, o Access vai executar linha por linha, vai avisa quando tiver erro, então

você conserta e continua apertando até consertar as linha que tiver erros.

{ }'s

Balem