мне тоже, но я и не пробовал ещё Если вы попробуете, то хорошо, а нет - у меня руки дойдут и я попробую
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
Пользователь
Сообщений: Регистрация: 25.02.2013
23.09.2021 20:19:30
Jack Famous, привет. Не знаю разобрались Вы или нет, но вот список на слово авто.
Скрытый текст
Код
Sub Parser()
Dim OBJHTTP As Object
Dim Url$, Str$
Set OBJHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
Url = "https://ksr.minstroyrf.ru/ksr-rest/classifier/extlist"
With OBJHTTP
.Open "POST", Url, False
.setRequestHeader "Accept", "application/json, text/plain, */*"
'.setRequestHeader "Accept-Encoding", "gzip, deflate, br"
.setRequestHeader "Accept-Language", "ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7"
.setRequestHeader "Connection", "keep-alive"
.setRequestHeader "Content-Length", "90"
.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
.setRequestHeader "Cookie", "JSESSIONID=506121BD07A3DE7683A71A1B1F022739; JSESSIONID=9A36D5852B7633E6FDD0398586AA657F; COOKIE_SUPPORT=true; GUEST_LANGUAGE_ID=ru_RU; LFR_SESSION_STATE_20119=1632414814343"
.setRequestHeader "Host", "ksr.minstroyrf.ru"
.setRequestHeader "Origin", "https://ksr.minstroyrf.ru"
.setRequestHeader "Referer", "https://ksr.minstroyrf.ru/"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"
.setRequestHeader "X-Requested-With", "XMLHttpRequest"
.send "{""date"":""23.09.2021"",""tags"":[""авто""],""page"":0,""length"":30,""sidx"":""title"",""sord"":""ASC""}"
Str = .ResponseText
Debug.Print Str
End With
Set OBJHTTP = Nothing
End Sub
Я думаю разберёшься что за что отвечает в запросе.
Результат такой:
Скрытый текст
{"data":[{"id":267501,"title":"Автобетононасосы, производительность 110 м3/ч","code":"29.10.59.91.07.02-013","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":267502,"title":"Автобетононасосы, производительность 160 м3/ч","code":"29.10.59.91.07.02-014","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":267499,"title":"Автобетононасосы, производительность 65 м3/ч","code":"29.10.59.91.07.02-011","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCo de":"91.07.02","groupTitle":"Бетононасосы"},{"id":267500,"title":"Автобетононасосы, производительность 90 м3/ч","code":"29.10.59.91.07.02-012","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":267507,"title":"Автобетононасосы, производительность до 150 м3/ч, высота подачи до 43 м","code":"29.10.59.91.07.02-500","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":267508,"title":"Автобетононасосы, производительность до 60 м3/ч, высота подачи до 30 м","code":"29.10.59.91.07.02-502","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07", "sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":267509,"title":"Автобетононасосы, производительность до 70 м3/ч, высота подачи до 80 м","code":"29.10.59.91.07.02-504","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":267510,"title":"Автобетононасосы, производительность до 90 м3/ч, высота подачи до 20 м","code":"29.10.59.91.07.02-506","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.07","sectionTitle":"Машины для приготовления, подачи и укладки бетона и раствора","groupCode":"91.07.02","groupTitle":"Бетононасосы"},{"id":268071,"title":"Автобетоносмесители: 4 м3","code":"28.92.40.91.14.01-001","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.01","groupTitle":"Автобетоносмесители"},{"id":268072,"title":"Автобетоносмесители: 5 м3","code":"28.92.40.91.14.01-002","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.01","groupTitle":"Автобетоносмесители"},{"id":268073,"title":"Автобетоносмесители: 6 м3","code":"28.92.40.91.14.01-003","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.01","groupTitle":"Автобетоносмесители"},{"id":268074,"title":"Автобетоносмесители: 7 м3","code":"28.92.40.91.14.01-004","measure":"маш.-ч","bookCode":"91","bookTitle ":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.01","groupTitle":"Автобетоносмесители"},{"id":268076,"title":"Автобетоносмесители, емкость до 6,3 м3","code":"28.92.40.91.14.01-011","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.01","groupTitle":"Автобетоносмесители"},{"id":268075,"title":"Автобетоносмесители на базе автомобиля, вместимостью барабана 2,7 м3","code":"28.92.40.91.14.01-005","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.01","groupTitle":"Автобетоносмесители"},{"id":268115,"title":"Автобитумовоз, 15 т","code":"29.10. 59.91.14.07-001","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.14","sectionTitle":"Средства транспортные для транспортировки строительных материалов","groupCode":"91.14.07","groupTitle":"Средства транспортные для транспортирования строительных материалов, не включенные в группы"},{"id":267433,"title":"Автогидроподъемники высотой подъема: 12 м","code":"28.22.18.91.06.06-011","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.06","sectionTitle":"Машины и механизмы подъемно-транспортные, кроме кранов","groupCode":"91.06.06","groupTitle":"Подъемники"},{"id":267434,"title":"Автогидроподъемники высотой подъема: 18 м","code":"28.22.18.91.06.06-012","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.06","sectionTitle":"Машины и механизмы подъемно-транспортные, кроме кранов","groupCode":"91.06.06","groupTitle":" Подъемники"},{"id":267435,"title":"Автогидроподъемники высотой подъема: 22 м","code":"28.22.18.91.06.06-013","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.06","sectionTitle":"Машины и механизмы подъемно-транспортные, кроме кранов","groupCode":"91.06.06","groupTitle":"Подъемники"},{"id":267436,"title":"Автогидроподъемники высотой подъема: 28 м","code":"28.22.18.91.06.06-014","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.06","sectionTitle":"Машины и механизмы подъемно-транспортные, кроме кранов","groupCode":"91.06.06","groupTitle":"Подъемники"},{"id":267437,"title":"Автогидроподъемники высотой подъема: свыше 35 м","code":"28.22.18.91.06.06-015","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.06","sectionTitle":"Машины и механизмы подъемно-транспортные, кроме кранов","groupCode":"91.06.06","groupTi tle":"Подъемники"},{"id":266918,"title":"Автогрейдеры: импортного производства особо тяжелого типа, мощность 135 кВт (184 л.с.)","code":"28.92.22.91.01.02-001","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.01","sectionTitle":"Машины для земляных работ","groupCode":"91.01.02","groupTitle":"Грейдеры"},{"id":266919,"title":"Автогрейдеры: импортного производства тяжелого типа, мощность 129 кВт (176 л.с.)","code":"28.92.22.91.01.02-002","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.01","sectionTitle":"Машины для земляных работ","groupCode":"91.01.02","groupTitle":"Грейдеры"},{"id":266920,"title":"Автогрейдеры: легкого типа, мощность 66,2 кВт (90 л.с.)","code":"28.92.22.91.01.02-003","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.01","sectionTitle":"Машины для земляных работ","groupCode":"91.01.02"," groupTitle":"Грейдеры"},{"id":266921,"title":"Автогрейдеры: среднего типа, мощность 99 кВт (135 л.с.)","code":"28.92.22.91.01.02-004","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.01","sectionTitle":"Машины для земляных работ","groupCode":"91.01.02","groupTitle":"Грейдеры"},{"id":267588,"title":"Автогудронаторы 3500 л","code":"29.10.59.91.08.02-001","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.08","sectionTitle":"Машины для дорожного и аэродромного строительства","groupCode":"91.08.02","groupTitle":"Гудронаторы"},{"id":267589,"title":"Автогудронаторы 7000 л","code":"29.10.59.91.08.02-002","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.08","sectionTitle":"Машины для дорожного и аэродромного строительства","groupCode":"91.08.02","groupTitle":"Гудронаторы"},{"id":267593,"title":"Автогудронаторы б итумно-эмульсионные, емкость до 8000 л","code":"29.10.59.91.08.02-500","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.08","sectionTitle":"Машины для дорожного и аэродромного строительства","groupCode":"91.08.02","groupTitle":"Гудронаторы"},{"id":267594,"title":"Автогудронаторы битумные в комплекте с системой высокоточного дозирования и распределения битумного материала, емкость до 6000 л","code":"29.10.59.91.08.02-502","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.08","sectionTitle":"Машины для дорожного и аэродромного строительства","groupCode":"91.08.02","groupTitle":"Гудронаторы"},{"id":277834,"title":"Автогудронаторы на базе автомобиля, грузоподъемность до 12 т","code":"29.10.59.91.08.02-004","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.08","sectionTitle":"Машины для дорожного и аэродромно го строительства","groupCode":"91.08.02","groupTitle":"Гудронаторы"},{"id":267590,"title":"Автогудронаторы на базе автомобиля импортного производства, емкость цистерны 6000 л, мощность 240 л.с.","code":"29.10.59.91.08.02-003","measure":"маш.-ч","bookCode":"91","bookTitle":"Машины и механизмы","partCode":null,"partTitle":null,"sectionCode":"91.08","sectionTitle":"Машины для дорожного и аэродромного строительства","groupCode":"91.08.02","groupTitle":"Гудронаторы"}],"totalRows":1449}
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
