Function SendRequest()
Dim URL As String
Dim objXmlHttp As Object
Dim strRet As String
Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
URL = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?userName=XXXXXXX&password=XXXXXXXXXXX&func=GetTrans&fromDate=02/18/2023&toDate=02/20/2023&format=json"
objXmlHttp.Open "GET", URL, False
objXmlHttp.send
Debug.Print objXmlHttp.ResponseText
objXmlHttp.abort
Set objXmlHttp = Nothing
End Function
הקוד הזה עובד מצוין.