zum Thema UPS-Tracking
17.09.2018 10:18:40
Reinhard
das eigentliche Thema ist bereits im Archiv: https://www.herber.de/cgi-bin/callthread.pl?index=1620005#1620005
Nun scheint UPS etwas geändert zu haben, ich komme momentan aber nicht drauf was es sein soll. Die Abfrage funktioniert nicht mehr mit dem Hinweis, dass ein Objekt erforderlich sei. Die Meldung kam in der Vergangenheit, wenn entweder die ID zu schnell abgefragt wurde (UPS diese also noch nicht kannte), oder UPS ein internes Problem hatte.
Hier der Code, der bislang sehr gut funktionierte:
'UPS-Abfrage - START
Dim trackingNumber As String, trackingURL As String
Dim trackingCode As Variant
Dim IEexp As InternetExplorer: Set IEexp = New InternetExplorer
Dim lastRow As Long, i As Long
lastRow = Tabelle1.Cells(Rows.Count, "L").End(xlUp).Row
For i = 2 To lastRow
If Tabelle1.Cells(i, "M").Value "Zugestellt" Then
trackingNumber = Tabelle1.Cells(i, "L").Value
trackingURL = "http://wwwapps.ups.com/WebTracking/processInputRequest?HTMLVersion=5.0&loc=de_DE& _
_
_
_Requester=UPSHome&tracknum=" & trackingNumber & "&AgreeToTermsAndConditions=yes&ignore=&track. _
_
x=25&track.y=16"
IEexp.Visible = False
IEexp.Navigate trackingURL
Do While IEexp.readyState 4: DoEvents: Loop
Dim inputElement As Object
Set inputElement = IEexp.Document.getElementById("tt_spStatus")
If (Not inputElement Is Nothing) Then
Tabelle1.Cells(i, "M").Value = Trim(inputElement.innerText)
Else
Tabelle1.Cells(i, "M").Value = "Fehler"
End If
End If
Next
IEexp.Quit
Set IEexp = Nothing
'UPS-Abfrage - ENDE
Eine Manuelle Abfrage mit dem Link http://wwwapps.ups.com/WebTracking/processInputRequest?HTMLVersion=5.0&loc=de_DE&_Requester=UPSHome&tracknum=
und der TrackingID funktioniert allerdings noch tadellos. Evtl. kennt einer von Euch ja die "Fehlerquelle" bei UPS bzw. hat nen Tip was man ändern müsste dass es wieder funktioniert.
Danke und Gruß
Reinhard