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

ReSQL.ru

2.0.59

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

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

10.10.2021, 19:36

#40103447

Alimov97

Гость

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

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

Код: 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

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&mobile=1&tid=2154699]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	66ms
get topic data:	10ms
get forum data:	2ms
get page messages:	24ms
get tp. blocked users:	1ms
others:	247ms

total:	377ms