Как получить доступ к внутреннему тексту тега HTML внутри тега <span>

0

Я хотел бы получить текст с веб-страницы, содержащей этот HTML-код.

<span id="result_box" class="short_text" lang="en">
    <span class="hps">mothers</span>
    <span class="hps">love</span>
</span>

Я пытаюсь использовать:

Set html = CreateObject("htmlfile")
html.body.innerHTML = xmlHttp.ResponseText
Set objResult = html.getelementbyid("result_box")
For Each span In objResult
Set objspan = objResult.getelementsbytagname("span")(0).innerText
Range(1, 2) = objspan
Next

Я пытаюсь получить текст матерей любви в Cell (1,2).

  • 0
    так какой выход вы получаете сейчас?
  • 0
    Я получил объект требуется ошибка.
Теги:
excel-vba
excel

1 ответ

0

Я не excel vba master, но логически ваш код должен быть таким

For Each span In objResult
Set objspan = objspan + objResult.getelementsbytagname("span")(0).innerText 

Next

Range(1, 2) = objspan

Сначала вам нужно построить строку, а затем назначить внешнему циклу ячейки. Надеюсь, вы понимаете логику.

Ещё вопросы

Сообщество Overcoder
Наверх
Меню