vba парсинг определенной информации с ссылки в ячейке эксель / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba парсинг определенной информации с ссылки в ячейке эксель

1 сообщений из 1, страница 1 из 1

vba парсинг определенной информации с ссылки в ячейке эксель

#40103447

Alimov97

Гость

Добрый день, вечер, утро!
Подскажите, пожалуйста, как парсить информацию с ссылки, ссылка находится в ячейке эксель, я по ней перехожу, и хочу в соседнюю ячейку вставить информацию с определенного блока ( в моем случае мне нужны обязанности вакансии с работа ру или хх).
Мой код ниже, он переходит по ссылке , но дальше ничего не происходит, и как быть непонятно, посмотрите, пожалуйста, что не так? может быть кто-то встречался с подобной проблемой?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Sub A10()
Dim обязанности As String
Dim сайт As Object
ILastRow = Cells(Rows.Count, 4).End(xlUp).Row
Set сайт = CreateObject(«InternetExplorer.Application»)
сайт.Visible = True
сайт.Navigate Range("D3:D" & ILastRow)
обязанности = сайт.document.queryselector("обязаннос" Or "задачи" Or "требования").innertext
Range("E3:E" & ILastRow).Value = обязанности
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

...

Рейтинг:

0 / 0

10.10.2021, 19:36

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (1): Анонимы (1)

Читали форум (1): Анонимы (1)

Пользователи онлайн (9): Анонимы (6), Bing Bot, Yandex Bot 1 мин., RePredeclared 3 мин.

Start [/forum/topic.php?fid=60&tid=2154699&gotonew=1]:	0ms
get settings:	2ms
get forum list:	8ms
check forum access:	1ms
check topic access:	1ms
track hit:	25ms
get topic data:	2ms
get first new msg:	1ms
get forum data:	1ms
get page messages:	12ms
update_topic_read_status (2154699): 10.10.2021 19:36:01:	0ms
get tp. blocked users:	1ms
get online users:	31ms
check new:	1ms
others:	92ms

total:	178ms