Beiträge von Gerhard_Unger

Hallo

Ich habe das Problem bereits gelöst und will euch hier eine kleine Zusammenfassung meines Problems mit meiner Lösung posten!

Umgebung

• Shelly Gen2 / Gen3 (z. B. Shelly Plus 2PM)
• Interner Temperatursensor
• Shelly Script schreibt Temperatur in KVS
• Excel VBA liest Werte über KSV.Get

Problem

Die Temperaturwerte sind am Shelly korrekt, aber in Excel falsch:

• Shelly Web-Interface → korrekt
• Shelly Script Konsole → korrekt
• Browser-Abfrage http://<ip>/rpc/KVS.Get?key=temp_100 → korrekt
• Excel zeigt veraltete oder komplett falsche Werte

Beispiel:

• Shelly Konsole: 53,4 °C
• Excel: 14,7 °C

Shelly Script

function updateTemp() {
  Shelly.call(
    "HTTP.GET",
    { url: "http://127.0.0.1/rpc/Temperature.GetStatus?id=100" },
    function(res) {
      let json = JSON.parse(res.body);
      Shelly.call("KVS.Set", {
        key: "temp_100",
        value: json.tC,
        ttl: 0
      });
      print("Sensor 100 =", json.tC, "°C");
    }
  );
}

updateTemp();

Der Wert wird korrekt gespeichert und aktualisiert!

Ursache

Nicht Shelly, nicht der Sensor – sondern Excel/VBA.

Die Hauptprobleme waren:

1. HTTP-Caching
   • Excel verwendet bei identischen URLs zwischengespeicherte Antworten
2. Falsche JSON-Prüfung
   • If Not JSON("value") Is Nothing → Objekt erforderlich
3. Dezimaltrennzeichen ( . vs , )
4. Kein Zeitstempel → keine Kontrolle, ob der Wert aktuell ist

Lösung

• Temperatur ausschließlich aus dem KVS lesen
• URL mit Cache-Busting-Parameter versehen
• JSON.Exists("value") verwenden
• Optional Zeitstempel zur Kontrolle speichern

VBA-Code

Sub ReadShellyTemperature()

    Dim ip As String
    Dim url As String
    Dim http As Object
    Dim json As Object
    Dim tempValue As Double

    ip = "192.168.0.241"
    url = "http://" & ip & "/rpc/KVS.Get?key=temp_100&_=" & _
          Format(Now, "yyyymmddhhmmss")

    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", url, False
    http.Send

    Set json = JsonConverter.ParseJson(http.responseText)

    If json.Exists("value") Then
        tempValue = CDbl(json("value"))
        Debug.Print "Temperatur:", tempValue
    End If

End Sub

Ergebnis

• Excel-Wert = Shelly-Konsole = KVS-Wert
• Keine veralteten Messungen mehr
• Verhalten reproduzierbar und stabil

Daher

Shelly RPC & KVS funktionieren korrekt
Sensorwerte sind zuverlässig
Excel/VBA benötigt explizites Cache-Busting und saubere JSON-Behandlung

Beim Auslesen von Shelly-KVS aus externen Systemen immer Caching verhindern!

{"id": 100,"tC":75.5, "tF":167.9}

ist die Antwort!

Ich mache die Abfrage der Sensoren mit folgenden Code:

Sub TestSensoren()
    Dim jsonStr100 As String
    Dim jsonStr101 As String
    Dim jsonObj100 As Object
    Dim jsonObj101 As Object
    Dim tC100 As Double
    Dim tC101 As Double
    
    jsonStr100 = GetHTTP("http://192.168.0.243/rpc/Temperature.GetStatus?id=100")
    jsonStr101 = GetHTTP("http://192.168.0.243/rpc/Temperature.GetStatus?id=101")
    
    ' JSON parsen
    Set jsonObj100 = ParseJson(jsonStr100)
    tC100 = jsonObj100("tC")
    Set jsonObj101 = ParseJson(jsonStr101)
    tC101 = jsonObj101("tC")
    
    MsgBox "Sensor 100: tC = " & tC100 & "°C" & vbNewLine & "Sensor 101: tC = " & tC101 & "°C"
    
End Sub

'--------------------------------------------------
' HTTP GET-Funktion
'--------------------------------------------------
Public Function GetHTTP(url As String) As String
    Dim Http As Object
    Set Http = CreateObject("MSXML2.XMLHTTP")
    Http.Open "GET", url, False
    Http.Send
    GetHTTP = Http.ResponseText
End Function

Ich arbeite mit den JSon Coverter von GITHUB

https://github.com/VBA-tools/VBA-JSON

Jedoch erhalte ich zum Teil Temperaturabweichungen zum Webinterface von bis zu 5°C, was ich mir nicht erklären kann!

Ich habe bei meiner Heizungsanlage genau gesagt am Pufferspeicher einen Shelly Plus 2PM mit einem Add On verbaut, um mit 2 Temperatursensoren die Puffertemperatur unten und oben zu erfassen. Jetzt wollte ich mir mittels Excel VBA einen Datenlogger erstellen - was eigentlich ganz gut funktioniert, jedoch weichen die Daten welche ich aus dem JSON Container extrahiere doch einigermaßen extrem von den Werten der Weboberfläche des Shellys ab.

Vielleicht hat jemand schon die selbe Erfahrung gemacht und kann mir Tipps geben wie ich vorgehen kann!