MSXML2.XMLHTTP60 Problem mit .open
27.08.2020 15:50:49
Peter
Doch habe ich ein fundamentales Problem, dass die URL Adresse in der Methode .open nur als String funktioniert und nicht als String-Variable.
Mein Code sieht gekürzt folgendermassen aus:
Public Const urlVF As String = "https//www.xy.de/interface/rest/"
Dim req As New MSXML2.XMLHTTP60
Dim urlSTR As String
Dim answer As String
Sub openRESTsesion()
urlSTR = urlVF & "auth/accesstoken"
With req
.Open "GET", urlSTR, False
.Send
answer = req.ResponseText
End With
End Sub
Setze ich allerdings bei .open Anstelle der Variable urlSTR den String ein also
.Open "GET", "https://www.xy.de/interface/rest/auth/accesstoken", False
Funktioniert es.
Googeln nach dem Laufzeitfehler hat mir leider nicht geholfen.
Woran liegt das wohl?
Ich kann mir vorstellen, dass entweder ein Verweis fehlt oder sich mit einem anderen nicht verträgt. Installiert habe ich:
Visual Basic For Appications
Microsoft Excel 16.0 Object Library
OLE Automation
Microsoft Office 16.0 Object Library
Microsoft XML, v6.0
Microsoft Scripting Runtime
Microsoft HTML Object Library