Я хотел бы получить текст с веб-страницы, содержащей этот 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).
Я не excel vba master, но логически ваш код должен быть таким
For Each span In objResult
Set objspan = objspan + objResult.getelementsbytagname("span")(0).innerText
Next
Range(1, 2) = objspan
Сначала вам нужно построить строку, а затем назначить внешнему циклу ячейки. Надеюсь, вы понимаете логику.