|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » Разное - Доступ к элементу div страницы на html посредством VBA |
|
Разное - Доступ к элементу div страницы на html посредством VBA
|
Пользователь Сообщения: 100 |
Профиль | Отправить 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 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|