Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Tratamento de ERRO ...
 
Notifications
Clear all

Tratamento de ERRO pela segunda vez VBA e IE

 
2024 - VBA & Macros
Post Recente por Edcronos 10 anos atrás
4 Posts
2 Usuários
0 Reactions
558 Visualizações
RSS
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

Consegui fazer uma macro que atualiza os últimos resultados das loterias pelo site da caixa.

tentei estruturar para que não retornasse valores errados

mas como tem vários fatores envolvendo a internet e o site algumas vezes retorna erro

Sub Atualiza_da_internet()
Inicio:
On Error GoTo Saida3
...
atualiza com a internet
...
Saida3:
IE.Quit
Set IE = Nothing
If Cn + 1 < Tin Then If MsgBox(" Falha em atualizar " & loter & " tentar novamente ? SIM ou NAO ", _
vbQuestion + vbYesNo) = vbYes Then GoTo Inicio
End Sub

a primeira vez que dá erro vai bem mas não na segunda vez
quando o site não demora para le carrega tudo normalmente.

tem alguma solução para isso
tbm estou planejando uma rotina pra quando o site demora para responder.
.

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 13/07/2014 3:38 pm
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Nào entendi mto bem a dúvida, mas se incluir a linha:

On error goto 0

será q ajuda?

Saida3:
IE.Quit
Set IE = Nothing
If Cn + 1 < Tin Then If MsgBox(" Falha em atualizar " & loter & " tentar novamente ? SIM ou NAO ", _
vbQuestion + vbYesNo) = vbYes Then
On error goto 0
GoTo Inicio
End If
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 13/07/2014 11:12 pm
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

desculpa, eu ia pedir para apagar o post era erro meu em outro lugar

ainda estou aprendendo a trabalhar com integração vba e internet
a macro funciona bem,
estou estruturando para não ter perigo de retornar valores errados por causa de respostas do site

mas não entendi isso de on erro goto o no final

quando voltar eu faço uma pesquisa a respeito

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 14/07/2014 3:36 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
Topic starter
 

obrigado
acabei usando
On error goto -1
que limpa o tratamento de erro

On error goto 0 "desativa"
se bem que no meu caso deve dá na mesma pq não faço verificação de tipo de erro

att.

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 14/07/2014 8:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico