Добрый день!
пытаюсь разобраться с гет запросом:
Код |
---|
ogrn = Cell.Value
Dim sURL As String
sURL = "https://xn--c1aubj.xn--80asehdb/%D0%B8%D0%BD%D1%82%D0%B5%D0%B3%D1%80%D0%B0%D1%86%D0%B8%D1%8F/%D0%BA%D0%BE%D0%BC%D0%BF%D0%B0%D0%BD%D0%B8%D0%B8/?%D0%BE%D0%B3%D1%80%D0%BD=" & ogrn
Set objHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
objHTTP.Open "get", sURL, True
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send "{range:9129370}"
objhttp.WaitForResponse 'На этой строке возникает ошибка
result = objHTTP.responseText
Set objHTTP = Nothing
Dim Json As Object
|
ogrn- любой номер огрн, как пример 304027419500123
на строке objhttp.WaitForResponse возникает ошибка. Почему?