VBA InStr для проверки HTML

Попытка проверить HTML для определенных ключевых слов с помощью функции VBA InStr, но, к сожалению, она не возвращает правильные результаты. Вот VBA …

With IE .Visible = True .navigate my_url4 End With Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop promo = IE.Document.getElementsByTagName("td") Debug.Print promo If InStr(promo, "C8") = 0 Then ActiveSheet.Range("C10") = "Not Found" Else ActiveSheet.Range("C10") = "Found" End If 

Вот HTML, который я пытаюсь проверить на значение в ячейке C8 …

 <div style="overflow:auto; height=75%; scrollbar-face-color: #D6DFF7; scrollbar-track-color:white;"> <table border="1" width="100%" cellspacing="0" cellpadding="10" style="border-collapse: collapse" bordercolor="#111111"> <tr> <td class='Header'>Customer History from Monday, September 12, 2016 to Monday, October 10, 2016 </td> </tr> <table border='1' width='100%' cellspacing='0' cellpadding='2'> <tr> <td class="Content" align="center" width="20%"><b>Promotion</b></td> <td class="Content" align="center" width="28%"><b>Issue Date</b></td> </tr> </table> <table border='1' width='100%' cellspacing='0' cellpadding='2'> <tr> <td class='Content' width="20%"> October Offer </td> <td class='Content' width="28%"> 10/10/2016 10:50:38 AM </td> </tr> </table> <table border='1' width='100%' cellspacing='0' cellpadding='2'> <tr> <td class='Content' width="20%"> Exclusive Online Promotion! </td> <td class='Content' width="28%"> 10/10/2016 10:50:32 AM </td> </tr> </table> <table border='1' width='100%' cellspacing='0' cellpadding='2'> <tr> <td class='Content' width="20%"> Exclusive October Offer </td> <td class='Content' width="28%"> 10/10/2016 10:50:10 AM </td> </tr> </table> 

Независимо от того, что я набираю в ячейку C8, я получаю тот же результат в C10, который заставляет меня думать, что что-то не так с переменной «promo», так как InStr всегда возвращается 0.

Любые идеи были бы оценены.

спасибо

If InStr(promo, "C8") = 0 Then ищет символьную строку «C8» внутри promo строки. Чтобы искать значение ячейки C8, вам нужно сказать:

 If InStr(promo, ActiveSheet.Range("C8").Value) = 0 Then 
  • Использование dropdownlists для извлечения данных из таблицы Excel
  • Excel открыть HTML-файл с FontAwesome
  • использование xsl для генерации html для excel требует большего форматирования
  • Как получить доступ к элементам дерева в html с помощью макроса
  • PHP не экспортирует базу данных MySQL в правильном формате
  • как написать вывод команды из файла html в файл excel?
  • Макросы для Excel для замены текста или добавления в конец и начало ячейки
  • Чтение файла Excel в Django, загруженном с использованием html-формы
  • Как получить HTML <src = "img"> в середине ячейки excel
  • Ошибка форматирования при копировании данных с html в excel
  • IE Автоматизация HTML / Java Form для Oracle Database: входные данные не сохраняются в базе данных
  • Давайте будем гением компьютера.