Hallo,
leider hat yahoo den Zugriff auf die Wetterdaten geändert, bisher konnte ich eine xml Datei einlesen und auswerten.
Diese Zeile erzeugt eine JSON: yahoo.com/news/_tdnews/api/res…erService;woeids=[berlin]
Wie füge ich diese JSON nun in ein Excel-Sheet ein?
Mein bisheriger Code für die XML war: (an den neuen Link "&format=xml" anhängen bringt leider auch nichts)
Danke
Gruss
leider hat yahoo den Zugriff auf die Wetterdaten geändert, bisher konnte ich eine xml Datei einlesen und auswerten.
Diese Zeile erzeugt eine JSON: yahoo.com/news/_tdnews/api/res…erService;woeids=[berlin]
Wie füge ich diese JSON nun in ein Excel-Sheet ein?
Mein bisheriger Code für die XML war: (an den neuen Link "&format=xml" anhängen bringt leider auch nichts)
Visual Basic-Quellcode
- stadt = Worksheets("kunden1").Range("b" & kundenzeile)
- Application.DisplayAlerts = False
- strUrl = "http://query.yahooapis.com/v1/public/yql?q=select * from weather.forecast where woeid in (select woeid from geo.places(1) where text%3D%22" & stadt & "%2C de%22) and u %3D %22C%22&format=xml"
- returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
- If returnValue <> 0 Then
- MsgBox "Wetterdaten momentan nicht verfügbar, bitte später nochmals versuchen!": wetter99 = 0: GoTo zuende
- Else
- ActiveWorkbook.XmlImport strUrl, ImportMap:= _
- Nothing, Overwrite:=True, Destination:=Worksheets("Wetter").Range("$A$1")
- Application.DisplayAlerts = True
- ActiveWorkbook.XmlMaps("query_Zuordnung").Delete 'yahoo
Danke
Gruss