Здравствуйте, коллеги! Подскажите, пожалуйста, можно ли каким-то образом выгрузить список организаций с сайта Минпромторга в Эксель? https://gisp.gov.ru/pp719/p/pub/orgs/
Настя_Nastya, я пока не понял каким образом макросом можно выгрузить данные с этого сайта. Есть у вас какие-нибудь идеи? На мой взгляд там не всё так просто.
Sub Org()
Dim Text As String
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://gisp.gov.ru/pp719/p/pub/orgs/"
Text = IE.Document.body.innerHTML
MsgBox (Text)
End Sub
Андрей Лящук, пожалуйста, помогите разобраться. Перестало работать. Я так понимаю поменялся адрес источника для запроса Json. Где этот адрес можно найти? Попробовал заменить на этот: https://gisp.gov.ru/pp719v2/pub/orgs/b/...не помогло