Соскоб сети с ошибкой vba 438 сводит меня с ума - PullRequest
Новая
       30

Соскоб сети с ошибкой vba 438 сводит меня с ума

0 голосов
/ 26 апреля 2020

Мой код переходит к URL-адресу целого rnet проводника, и я пытаюсь получить текст, связанный с именем «pears», следующим образом: 

Worksheets("Sheet1").Cells(1, 1).Value = IE.document.getElementsByClassName("pears").innerText

Ссылки Microsoft HTML Библиотека объектов и элементы управления Microsoft Inte rnet выбраны.

Соответствующая выдержка из URL: 

<span id="pears">text to be grabbed<br>and this text too</span>

Я получаю ошибку 438.

Весь код: 

Sub GetWebStuff()  
Dim IE As New InternetExplorer  
IE.navigate Worksheets("Sheet1").Cells(1, 2).Value  
While IE.readyState <> 4 Or IE.Busy: DoEvents: Wend  
Worksheets("Sheet1").Cells(1, 1).Value = IE.document.getElementById("pears").innerText  
IE.Quit  
Set IE = Nothing  
End Sub

Почему ??

...