Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
33 / 6 / 0
Регистрация: 18.05.2014
Сообщений: 127

Сбор данных с сайта

11.12.2016, 16:31. Показов 626. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброе утро!
Есть некая таблица где указаны ИНН компаний, необходимо заполнить пустые столбцы использую данные сайта https://sbis.ru/contragents/

Пример:
ИНН 7712040126 - ссылка на сайт https://sbis.ru/contragents/7712040126

в открывшейся страницы есть строчка:
Кликните здесь для просмотра всего текста
Code
1
<div class="cCard__Content-Var ws-area ws-control-inactive ws-component ws-enabled" itemscope="itemscope" itemtype="http://schema.org/Organization" config="%7b%22rec%22:%7b%22Название%22:%22Аэрофлот, ПАО%22,%22НазваниеПолное%22:%22ПУБЛИЧНОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО \%22АЭРОФЛОТ-РОССИЙСКИЕ АВИАЛИНИИ\%22%22,%22ИНН%22:%227712040126%22,%22КПП%22:%22770401001%22,%22ОГРН%22:%221027700092661%22,%22ОКПО%22:%2229063984%22,%22КоличествоФилиалов%22:94,%22ОсновнойОКВЭД%22:%2251.10.1%22,%22ОсновнойОКВЭДНазвание%22:%22Перевозка воздушным пассажирским транспортом, подчиняющимся расписанию%22,%22КоличествоОКВЭД%22:22,%22КоличествоЛицензий%22:55,%22Адрес%22:%22Москва г, ул.Арбат, д.10%22,%22КоличествоОрганизацийСАдресом%22:62,%22Телефон%22:%22(495)2235555%22,%22КоличествоТелефонов%22:0,%22Мыло%22:%22vzakharov@aeroflot.ru%22,%22Сайт%22:%22http://www.aeroflot.ru%22,%22УставнойКапитал%22:%221 110 616 299%22,%22ТопВладельцев%22:%7b%22s%22:[%7b%22n%22:%22Название%22,%22t%22:%22Строка%22%7d,%7b%22n%22:%22Сумма%22,%22t%22:%22Строка%22%7d,%7b%22n%22:%22Доля%22,%22t%22:%22Число целое%22%7d,%7b%22n%22:%22ИНН%22,%22t%22:%22Строка%22%7d,%7b%22n%22:%22КПП%22,%22t%22:%22Строка%22%7d],%22d%22:[[%22Министерство имущественных отношений РФ%22,%22568 335 339%22,51,null,null]],%22_type%22:%22recordset%22%7d,%22ВладельцыЮЛ%22:0,%22ВладельцыЧЛ%22:0,%22КоличествоДочек%22:23,%22ДиректорФИО%22:%22Савельев Виталий Геннадьевич%22,%22ДиректорДолжность%22:%22ГЕНЕРАЛЬНЫЙ ДИРЕКТОР%22,%22Статус%22:%22Действует с 02.08.2002%22,%22ИстецВыиграл%22:21,%22ИстецПроиграл%22:11,%22ИстецКоличество%22:%22%26#x2591;%26#x2591;%26#x2591;%22,%22ОтветчикВыиграл%22:39,%22ОтветчикПроиграл%22:16,%22ОтветчикКоличество%22:%22%26#x2591;%26#x2591;%26#x2591;%22,%22ВыручкаСтатистика%22:%222004-56377181000,2005-62849278000,2006-71353046000,2007-77094885000,2008-95013960000,2009-87636897000,2010-112569429000,2011-135801478000,2012-176584193000,2013-206277137000,2014-277644406000,2015-366307485000%22,%22ПрибыльСтатистика%22:%222004-6330143000,2005-6032405000,2006-7981346000,2007-6074369000,2008-5807312000,2009-1553377000,2010-11693895000,2011-10483665000,2012-3040593000,2013-11096946000,2014-14022079000,2015--18927841000%22,%22ВыручкаПоРегиону%22:null,%22ВыручкаПоВидуДеятельности%22:null,%22СтоимостьПоРегиону%22:null,%22СтоимостьПоВидуДеятельности%22:null,%22СтоимостьБизнесаСтатистика%22:%22%22,%22Надежность%22:%223,4,2,3,2,4%22,%22РентабельностьПродаж%22:-5,%22РентабельностьКапитала%22:-38,%22Лицо%22:22544941,%22Выручка%22:%22%26#x2591;%26#x2591;%26#x2591; %26#x2591;%26#x2591;%26#x2591; %26#x2591;%26#x2591;%26#x2591; 00%26#x2591;%22,%22Прибыль%22:%22%26#x2591;%26#x2591;%26#x2591; %26#x2591;%26#x2591;%26#x2591; %26#x2591;%26#x2591;1 0%26#x2591;%26#x2591;%22,%22СтоимостьБизнеса%22:%22%26#x2591;%26#x2591;%26#x2591; %26#x2591;%26#x2591;%26#x2591; %26#x2591;98 %26#x2591;%26#x2591;%26#x2591;%22,%22Индекс%22:%22119002%22,%22ПохожиеВРегионе%22:null,%22ПохожиеВОтрасли%22:null,%22ДиректорДата%22:%2227.05.2009%22,%22ЧисленностьСотрудников%22:37058,%22КоличествоАффилированных%22:-1,%22АффилированноеЛицоНазвание%22:null,%22АффилированноеЛицоИНН%22:null,%22АффилированноеЛицоКПП%22:null,%22АффилированноеЛицоРегион%22:null,%22АффилированноеЛицоКак%22:null,%22АффилированноеЛицоАктуальнаяСвязь%22:null,%22ВсегоДиректор%22:2,%22Город%22:%22Москва%22, data-component="SBIS3.Contragents.ContragentCardSbisContent" id="ws-wscipci91cerk91481411783325" tabindex="0" hidefocus="true" hasmarkup="true" wasbuildmarkup="true" >

В данной строчке есть вся необходимая информация:
  • УставнойКапитал
  • Статус
  • ВыручкаСтатистика
  • ПрибыльСтатистика
  • Выручка
  • Прибыль
  • ЧисленностьСотрудников
Подскажите, как получить данную информацию из данной строчки?
Как я понимаю, данные в формате JSON
Символы для замены
%7b = {
%7d = }
%22 = "
%26 = &

Строк в таблице может быть много, например 100.

Благодарю за помощь!
Вложения
Тип файла: xlsx Книга1.xlsx (8.3 Кб, 3 просмотров)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.12.2016, 16:31
Ответы с готовыми решениями:

Сбор присланных данных
Здравствуйте. Подскажите пожалуйста по поводу сбора данных. Ситуация такая... одинаковые книги, одинаковые таблицы. Нужно сделать свод всех...

Сбор данных за декаду
Помогите решить такую задачку. В файле карточка есть данные их надо вставить в файл акт списания. Только надо чтоб разбрасывал по декадам и...

Сбор и обработка данных
Доброго времени суток! Помогите пожалуйста. Нужен макрос который будет собирать данные из около 199 листов которые находятся в одной...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
11.12.2016, 16:31
Помогаю со студенческими работами здесь

Сбор данных из разных книг
Добрый день! Помогите решить вопрос: Есть папка с 100+ файлами, там примерно одни и те же данные, но с разными названиями/порядком...

Сбор данных из нескольких источников
Уважаемые форумчане! И великие УМЫ!!! Подскажите макрос, который переносил бы таблицу на один лист из разных файлов. Надо чтоб в книгу 1...

Сбор данных из других книг
Уважаемые форумчане, всем доброго времени суток. У меня проблема, вылетает вот такая ошибка &quot;VBA Error 9: Subscript out of...

Сбор данных в зависимости от даты
Ув. форумчане! Есть такая проблема, не могу данные перенести данные из одного листа в другой (общий), но по двум условиям дате и времени...

Сбор данных из разных файлов
Здравствуйте. Перебрал уже сотню сообщений и макросов на эту тему, пытался их менять, дополнять, сокращать, но так ничего и не получилось. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru