Sub Аршин()
Dim XMLHTTP As Object
Dim URL$, Txt$
URL = "https://fgis.gost.ru/fundmetrology/cm/results/1-34756749"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", URL, False
XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36"
XMLHTTP.SEND
If XMLHTTP.Status = 200 Then
Txt = XMLHTTP.responseText
MsgBox Txt
Else
MsgBox "Отсутствует соединение..."
End If
Set XMLHTTP = Nothing
End Sub
{"result":{"miInfo":{"singleMI":{"mitypeNumber":"50315-12","mitypeType":"SW, PW, AD и PDS-II","mitypeTitle":"Весы электронные","mitypeURL":"https://fgis.gost.ru/fundmetrology/registry/4/items/362139","manufactureNum&qu... БЮДЖЕТНОЕ УЧРЕЖДЕНИЕ \"ГОСУДАРСТВЕННЫЙ РЕГИОНАЛЬНЫЙ ЦЕНТР СТАНДАРТИЗАЦИИ, МЕТРОЛОГИИ И ИСПЫТАНИЙ В Г. МОСКВЕ И МОСКОВСКОЙ ОБЛАСТИ\"(ФБУ \"РОСТЕСТ-МОСКВА\")","signCipher":"МА","miOwner":"ГБУК г.Москвы \"Музей-усадьба \"Кусково\"","vrfDate":"03.02.2021","validDate":"02.02.2022","docTitle":"ГОСТ Р 53228-08","vriType":"2","applicable":{"certNum":"С-МА/03-02-2021/34756749","signPass":false,"signMi":true}},"means":{"uve":[{"number":"3.1.ZMA.0256.2015","title":"Государственный эталон единицы массы 4 разряда в диапазоне значений от 10 мг до 36 т","uveURL":"https://fgis.gost.ru/fundmetrology/registry/11/items/406878"}]},"info":{&...}
По коду макроса больше не появляется статус 200. Получается : status : 429 : Long Примерно понимая, нужно добавить заголовки или куки прописать (это не точно). Подскажите что дописать в макрос чтобы появился статус 200 на сайт https://fgis.gost.ru/fundmetrology/cm/results
ПС:Разобрался)) Запрос поиска был на 500 значений (похоже порезали с этого года). Выставил на 100 и заработало))))
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄