VBA - DataSource Error ignorieren
08.02.2018 11:44:58
Cryopara
mittels einer API Verbindung über PowerQuery in Excel 2013 (auch mit 2016 getestet) ziehe ich alle paar Sekunden CryptoWährungen Kursdaten von verschiedenen Börsen.
Dafür habe ich ein Makro geschrieben das mittels:
Application.OnTime Now() + TimeValue(ticktime), "Tick"
Looped.
Die API Werte aktualisiere ich über:
ActiveWorkbook.RefreshAll
Nun das Problem: Alle paar Stunden gibt es einen [DataSource] Handshake SSL o.ä. Error, der mit "OK" quittiert werden muss. Ein Fehler ist nicht schlimm, da im nächsten Loop wieder Daten fliefen.
Ich habe versucht dieses zu "übergehen" mit:
Application.DisplayError = False
Applicarion.EnableEvents = False
OnError Resume Next
Leider ohne Erfolg.
Würde mich über jede Hilfe freuen!!