Grüezi mitenand
Ein Excel- und/oder Access Programm soll Daten bei einem WebService abholen
Alle Angaben gelten sowohl für Excel wie auch Access
Konfiguration:
WIn 7 Prof, 64-bit
Excel 2010 oder Access 2007
Relevanter Code:
Dim RequestObj As Object
Set RequestObj = CreateObject("WinHttp.WinHttpRequest.5.1")
RequestObj.Open "GET", "https://www.xxxx.ch/api/RequestDetail?ProdNumber=" & ProdNrTxt, False
RequestObj.setRequestHeader "Username", "XXXXX"
RequestObj.setRequestHeader "Password", "XXXXX"
RequestObj.setRequestHeader "PersonalNumber", "XXXXX"
RequestObj.send
Das Problem:
Nach Aufruf von ,,RequestObj.send" wird ohne jegliche Verzögerung angezeigt:
bei bestehender Internetverbindung:
Error -2147012739
Im Support des sicheren Channels ist ein Fehler aufgetreten
Oder
Bei fehlender Internetverbindung
Error -2147012889
Der Servername oder die Serveradresse konnte nicht verarbeitet werden. (ist eigentlich klar)
Die gleiche Routine läuft einwandfrei auf Laptops mit:
Win 10, Excel 2010 oder Access 2007
Entwickelt wurde das Programm auf Win7 da dieses auch produktiv eingesetzt werden soll.
Schöne Grüsse aus dem sonnigen Appenzellerland