Beste,
Ik heb een VBA Macro gemaakt voor Excel waarin diverse sites worden benaderd en vervolgens wordt informatie van de betreffende site afgehaald(Broncode e.d.),
Voordat de informatie kan worden opgehaald moet de site wel helemaal geladen zijn, dit controleer ik d.m.v. de volgende code:
Bij een heleboel sites werkt dit correct, alleen sommige sites gaven de 'Complete' status niet terug waardoor het script niet verder kon doorlopen. Ik ben vervolgens naar een oplossing gaan zoeken en de volgende code erbij geplaatst:
Zodat automatisch na 30 seconden het script vervolgt zou moeten worden, alleen raar genoeg bij diverse sites zoals onderstaande blijven problemen optreden:
- http://www.f1pits.net/
- http://www.fr-fans.nl/
Deze zenden namelijk niet de 'complete' status terug, ik heb een debug check uitgevoerd, en zogauw het script bij de volgende regel:
Aankomt crasht Excel volledig en moet deze opnieuw worden opgestart, hebben jullie misschien enig idee hoe dit zou kunnen komen?
Bedankt,
Yannick
Ik heb een VBA Macro gemaakt voor Excel waarin diverse sites worden benaderd en vervolgens wordt informatie van de betreffende site afgehaald(Broncode e.d.),
Voordat de informatie kan worden opgehaald moet de site wel helemaal geladen zijn, dit controleer ik d.m.v. de volgende code:
Code:
While ((doc.readyState <> "complete"))
DoEvents
Wend
Bij een heleboel sites werkt dit correct, alleen sommige sites gaven de 'Complete' status niet terug waardoor het script niet verder kon doorlopen. Ik ben vervolgens naar een oplossing gaan zoeken en de volgende code erbij geplaatst:
Code:
Start = Timer
While ((doc.readyState <> "complete"))
If ((Timer - Start) > 30) Then
' Voer actie uit
Else
DoEvents
End if
Wend
Zodat automatisch na 30 seconden het script vervolgt zou moeten worden, alleen raar genoeg bij diverse sites zoals onderstaande blijven problemen optreden:
- http://www.f1pits.net/
- http://www.fr-fans.nl/
Deze zenden namelijk niet de 'complete' status terug, ik heb een debug check uitgevoerd, en zogauw het script bij de volgende regel:
Code:
While ((doc.readyState <> "complete"))
Bedankt,
Yannick
Laatst bewerkt: