Sub DHLSendungsStatus()
Const url As String = "https://www.dhl.de/int-verfolgen/data/search?language=de&piececode="
Dim piececode As String
Dim json As Dictionary
Dim ws As Worksheet
Dim firstRow As Long
Dim lastRow As Long
Dim currRow As Long
Set ws = ThisWorkbook.ActiveSheet 'Bei Bedarf anpassen
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
firstRow = 2
With CreateObject("MSXML2.XMLHTTP.6.0")
For currRow = firstRow To lastRow
piececode = ws.Cells(currRow, 1)
.Open "GET", url & piececode, False
.send
If .Status = 200 Then
Set json = JsonConverter.ParseJson(.responseText)
ws.Cells(currRow, 2) = json("sendungen")(1)("sendungsdetails")("sendungsverlauf")("kurzStatus")
Else
MsgBox "JSON nicht geladen. HTTP-Status " & .Status
End If
Next currRow
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen