getElementById innerHTML Runtine error 91 - PullRequest
Новая
       13

getElementById innerHTML Runtine error 91

0 голосов
/ 15 мая 2018

Я пытаюсь извлечь текст из строки html (показанной ниже), используя Excel VBA.

<textarea class="textareaMod task-title" id="task-description">software Developemnt</textarea>

Я получаю сообщение об ошибке 91 при каждом запуске кода.Ниже приведена часть моего кода.Любая помощь, чтобы решить это очень ценится. 

Dim ie As InternetExplorer
Dim html As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate URLstr
Do While ie.READYSTATE <> READYSTATE_COMPLETE
Application.StatusBar = "Trying to connect to the source..."
DoEvents
Loop

Set html = ie.document
Set ie = Nothing
Application.StatusBar = ""
Dim title, header As String

title = html.getElementById("task-description").innerHTML
Activesheet.Range("B2").Value = title

1 Ответ

0 голосов
/ 06 июня 2018

Спасибо, СИМ и Синди! Это сработало для меня: 

Dim Title As Object
Dim TitleTxt As String 
Set Title = html.getElementById("task-description") 
TitleTxt = Title.innerText 
Activesheet.Range("B2").Value = Title
...