Hallo,
ich möchte gerne von der Seite https://api.sunrise-sunset.org/json?lat=5.127.023.661&lng=539.828.324&date=17-09-28
Wetterdaten in Excel einlesen.
und das quasi für so viele Links wie ich in Excel als Hyperlink eingefügt habe. Also für verschiedene GPS Koordinaten und
für verschiedene Uhrzeiten.
Habe unten mal das Programm eingeügt welches ich von der seite
https://codingislove.com/excel-json/ habe .
Kann mir da Jemand helfen da es immer ein Laufzeitfehler '13' Typen unverträglich kommt.
Komme nicht weiter und finde den Fehler nicht.
Public Sub exceljson()
Dim http As Object, JSON As Object, i As Integer
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "https://api.sunrise-sunset.org/json?lat=5.127.023.661&lng=539.828.324&date=17-09-28", False
http.Send
Set JSON = ParseJson(http.responseText)
i = 2
For Each Item In JSON
Sheets(1).Cells(i, 1).Value = Item("results")
Sheets(1).Cells(i, 2).Value = Item("sunrise")
Sheets(1).Cells(i, 3).Value = Item("sunset")
Sheets(1).Cells(i, 4).Value = Item("solar_noon")
Sheets(1).Cells(i, 5).Value = Item("day_length")
Sheets(1).Cells(i, 6).Value = Item("civil_twilight_begin")
Sheets(1).Cells(i, 7).Value = Item("civil_twilight_begin")
Sheets(1).Cells(i, 8).Value = Item("nautical_twilight_begin")
i = i + 1
Next
MsgBox ("Fertig eingefügt")
End Sub
Würde mich über schnelle Rückmeldung freuen.
|