Найти таблицу на сайте и выгрузить из нее информацию.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти таблицу на сайте и выгрузить из нее информацию. (Макросы/Sub)

DmitryS

Дата: Среда, 13.06.2018, 23:44 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день!

Помогите, пожалуйста, со следующей задачей.

Есть сайт, например, "https://worldwide.espacenet.com/publicationDetails/biblio?CC=DE&NR=102007012539A1&KC=A1&FT=D&ND=4&date=20080925&DB=EPODOC&locale=en_EP"
Необходимо вытащить всю обновляемую информацию (таблица "div#pagebody") с картинкой.
Пытался сделать разными способами, не смог выгрузить даже текст.

К сообщению приложен файл: 2822107.xlsm (21.8 Kb)

Ответить

doober

Дата: Четверг, 14.06.2018, 01:42 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
Таблица выгружается так.[vba]

Код

Set r = IE.Document.getElementById("body").getElementsByTagName("table")(0)
sAnswer = r.innerText

[/vba]
С картинкой не так все просто, способа ее добыть не нашел.

Ответить

DmitryS

Дата: Понедельник, 18.06.2018, 23:08 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

doober, спасибо, сильно помогло!
Не могли бы Вы помочь более детально, если можно.
1) Самое критичное. Это необходимо в итоге вставить в ворд, поэтому лучше вытащить все в виде структурированной таблицы, а еще лучше скопировать. Это можно сделать?

2) Если оставить
[vba]

Код

Set r = IE.Document.getElementById("body")

[/vba]
, то информации выгружается больше, но все равно не берет заголовок — "Bibliographic data: DE102007012539 (A1) ― 2008-09-25"

Ответить

Страница 1 из 1
1