Hallo,
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
Kann mir da Jemand helfen da es immer ein Laufzeitfehler
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.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