VBA - Internet Error umgehen | HERBERS Excel Forum

Hallo zusammen,
zum Sammeln von Daten läuft ein alter PC von mir tagsüber im Keller. Da ich auf dem Land jedoch ab und zu mal Aussetzer mit dem Internet habe, fällt das VBA Programm bei Aussetzern nach kurzer Zeit vollständig aus - da ich das nicht sofort merke ist das blöd, vor allem, da der Datensatz nach 10 min Unterbrechung unbrauchbar wird.
Ich wollte schonmal fuchsig, wie ich bin versuchen mir dann eine Telegram Nachricht ans Handy senden zu lassen (hat mit dem Telegram Bot auch super funktioniert)´- ich hatte jedoch nicht bedacht, dass das Absenden der Nachricht auch eine Internetverbindung erfordert.
Lange Rede kurzer Sinn: Ich suche eine Möglichkeit, wie das Programm so lange on hold ist, bis wieder eine Internetverbindung besteht. Es geht um folgende Befehle:
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", URL, False
HttpReq.send
XmlHttpRequest = HttpReq.responseText
bBackground = objConnection.OLEDBConnection.BackgroundQuery
objConnection.OLEDBConnection.BackgroundQuery = False
objConnection.Refresh
objConnection.OLEDBConnection.BackgroundQuery = bBackground
Ich habe mal was mit on Error Resume versucht, doch das hat nicht wie gewollt funktioniert.
Habt ihr da eine Lösung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Beispiel() Dim HttpReq As Object Dim objConnection As Object Set HttpReq = CreateObject("MSXML2.XMLHTTP") On Error Resume Next Do Err.Number = 0 With HttpReq .Open "GET", URL, False .Send XmlHttpRequest = .responseText End With With objConnection bBackground = .OLEDBConnection.BackgroundQuery .OLEDBConnection.BackgroundQuery = False .Refresh .OLEDBConnection.BackgroundQuery = bBackground End With Loop Until Err.Number = 0 On Error GoTo 0 End Sub

Code: [Cc] Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" ( _ ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _ ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long Function IsOnline() As Boolean 'Stellt fest, ob man online ist Dim sConnType As String * 255, l As Long If InternetGetConnectedStateEx(l, sConnType, 254, 0) = 1 Then IsOnline = True End Function

Beliebteste Forumthreads (12 Monate)

VBA - Internet Error umgehen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

24 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Internet Error umgehen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

24 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread