Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » Разное - Доступ к элементу div страницы на html посредством VBA

Ответить
Настройки темы
Разное - Доступ к элементу div страницы на html посредством VBA

Пользователь


Сообщения: 100
Благодарности: 0

Профиль | Отправить PM | Цитировать


Добрый день!

В html коде есть элемент div, к которому необходимо получить доступ посредством VBA
<div id="tender-card-content">
<div id="report-script" class="tender-card-title">
<h1 class="tct-tender-number">
Закупка <span class="copy-script tender-number-copy">32312204305</span>
</h1>
<div class="tct-tender-text">Содержимое, которое необходимо скопировать с html страницы через VBA</div>
...

Получается только через getElementsByTagName("div")(номер элемента).innerText, но номер элемента div может меняться динамически и такой вариант не подходит.
Привожу код, в котором попробовал разные варианты доступа с указанием сообщения о ошибке в комментариях.

Sub test()

sURL = "https://synapsenet.ru/zakupki/fz223/32312204305%231--sanktpeterburg-vipolnenie-rabot-po-obsledovaniyu-stroitelnih"

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.send
txt = .responseText

Set pDoc = CreateObject("HTMLFile")
pDoc.body.innerHTML = txt

.Open "GET", sURL, False: .send
getHTTP = StrConv(.responseBody, vbUnicode)

MsgBox pDoc.getElementsByTagName("div")(номер элемента).innerText
'Работает.'

MsgBox getHTTP.getElementsByTagName("div")(номер элемента).innerText
'Сообщение об ошибке Object required.'

pDoc.getElementsByClassName ("tct-tender-text")
'Сообщение об ошибке Object doesn't support this property or method.'

getHTTP.getElementsByClassName ("tct-tender-text")
'Сообщение об ошибке Object required.'

pDoc.querySelectorAll ("tct-tender-text")
'Сообщение об ошибке Object doesn't support this property or method.'

getHTTP.querySelectorAll ("tct-tender-text")
'Сообщение об ошибке Object required.'

End With

Set oXMLHTTP = Nothing

End Sub

Как нужно исправить код, чтобы получить доступ к нужному элементу?

Отправлено: 16:09, 19-03-2023

 


Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » Разное - Доступ к элементу div страницы на html посредством VBA

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - Получения значения из JSON-страницы посредством VBScript The_Immortal Скриптовые языки администрирования Windows 2 10-02-2018 23:59
Интернет - приложение запрашивает доступ к защищенному элементу Count Microsoft Windows 2000/XP 7 24-02-2013 18:00
.NET - ObservableCollection Доступ к элементу класса eugene771 Программирование и базы данных 1 27-10-2012 20:24
[решено] Растягивать div по всей оставшейся высоте страницы Artem-Samsung Вебмастеру 2 01-12-2011 13:17
html,css (div высота) brain_13 Вебмастеру 4 12-06-2008 09:02




 
Переход