Weihnachtsangebot 2025! 🎄

[bahnuhr]

Mit folgendem Befehl kann man ein Objekt ändern:

http://192.168.243.100:8087/set/javascript.0.Geräte.Pool.Tabelle?value=true&prettyPrint

Wenn man diesen im Browser (z.B. Chrome) eingibt funktioniert dies jedes Mal.
Als responce in chrome kommt: { "id": "javascript.0.Geräte.Pool.Tabelle", "value": true, "val": true }
(warum dort 2 x val steht weiß ich auch nicht; lt. Beschreibung von simple-api dürft dort nur 1 x value stehen -> aber das ist ein anderes Thema)

Wenn ich dies mit Excel VBA versuche, z.B. so:

Sub BasicGETRequest()
    Dim req As New MSXML2.XMLHTTP60
    Dim reqURL As String
    reqURL = "http://192.168.243.100:8087/set/javascript.0.Geräte.Pool.Tabelle?value=true&prettyPrint"
    req.Open "GET", reqURL, False
    req.Send
    If req.Status <> 200 Then
        MsgBox req.Status & " - " & req.statusText
        Exit Sub
    End If
    Debug.Print req.Status & " - " & req.ResponseText
    req.abort
End Sub

dann klappt dies auch. Aber nur beim 1. mal !!!!

Wenn ich das Makro nochmal laufen lassen erscheint im Direktfenster von VBA auch der code 200 (also alles ok); aber die Variable in iob wird nicht mehr geändert.

Fazit:
In chrome funktioniert der Befehel jedes mal.
Per VBA nur beim 1. Aufruf (Wenn ich Excel schließe und wieder aufrufe; dann wieder nur beim 1. starten des makros.)

Fragen:
Warum funktioniert dies in VBA nur beim 1. Aufruf ?

Vielleicht hat dies schon einmal jemand probiert.

Danke für die Hilfe.

mfg
Dieter

[bahnuhr]

habe die Zeile 2 von: Dim req As New MSXML2.XMLHTTP60
geändert in: Dim req As New WinHttp.WinHttpRequest

Damit klappt es.