Получить значение строки атрибута из html

Я создаю макрос для извлечения данных с веб-сайта с помощью vba . В настоящее время я могу легко получить значение из содержимого таблицы, используя синтаксис элемента, например obj.getElementsByTagName("td").innerText . Однако, когда в некоторых ячейках есть некоторые данные, не являющиеся внутреннимиText, у меня возникают проблемы. Это вот так:

 <img src="/images/amber_pending.gif" border="0" alt="Pending" title="Pending"> 

Я попытался извлечь значение атрибута из «title», используя синтаксис, который я нашел у других:

 For Each tbObj In doc.getElementsByClassName("report removeTdBorder") i = 1 For Each trObj In tbObj.getElementsByTagName("tr") If i >= 3 Then j = 1 For Each tdObj In trObj.getElementsByTagName("td") If j = 1 Then Set imgObj = tdObj.getElementsByTagName("img") dataArray(i, j) = imgObj.getAttribute("title") Debug.Print imgObj.getAttribute("title") ActiveCell.Offset(0, j) = dataArray(i, j) ActiveCell.Offset(0, j).WrapText = False Else dataArray(i, j) = tdObj.innerText Debug.Print i & ", " & j & ": " & dataArray(i, j) ActiveCell.Offset(0, j) = dataArray(i, j) ActiveCell.Offset(0, j).WrapText = False End If j = j + 1 Next tdObj ActiveCell.Offset(1, 0).Activate End If i = i + 1 Next trObj Next tbObj 

Но этот код каждый раз dataArray(i, j) = imgObj.getAttribute("title") и он сказал: «Ошибка времени выполнения» 438: Object не поддерживает это свойство или метод »в строке dataArray(i, j) = imgObj.getAttribute("title") . Может кто-нибудь мне помочь?

 Set imgObj = tdObj.getElementsByTagName("img") 

возвращает коллекцию изображений (даже если их можно найти только один), поэтому вы можете обратиться к определенному изображению, используя (например):

 dataArray(i, j) = imgObj(0).getAttribute("title") 
  • Как я могу очистить суб-заголовки от этой ссылки?
  • Как получить значение alt из img с помощью vba
  • VBA : Автоматизация: открывать ссылки в одном окне браузера / вкладке
  • Скопировать текст с веб-сайта с помощью Excel VBA?
  • Как установить выбор даты с помощью VBA
  • VBA для очистки данных с сайта - ошибка при пустых данных
  • Нужна ручная очистка HTML-тегов и исправление перерывов csv в Python
  • Введите форму Javascript на веб-странице, используя VBA
  • Чтение данных из URL-адреса «Экспорт в Excel» в R
  • Объект Excel в Access VBA - Веб-скребок - Откройте файл Excel или обратитесь к файлу Excel, который уже открыт
  • Скребуние данных из таблиц Excel с разными названиями листов
  • Interesting Posts

    Метод AutoFilter класса Range не удалось выполнить в VB.NET

    как указать учетные данные пользователя базы данных в строке массива соединений (Excel VBA)

    Найти и заменить текст в excel

    как преобразовать временную метку в текстовом формате в фактический формат даты MS excel?

    Как вложить IF, AND, ИЛИ в excel

    Разрешить доступ пользователю для выбора листа Excel для связывания

    Макрос Excel VBA для фильтрации

    Excel VBA Удалить указанные значения в списке во втором режиме

    Заполнение DropDown специальными ключами Excel для назначения динамических ярлыков

    Использование VBA Vlookup для работы между двумя листами и заполнения всей колонки

    Как установить динамику MyArray в Excel VBA?

    Предоставление больших наборов данных webservice для потребления через Access или Excel

    Запись на конкретный рабочий лист Excel с использованием python

    Стретч-таблица из Excel в PowerPoint в C #

    Ошибка распространения таблицы при использовании буфера обмена

    Давайте будем гением компьютера.