Блог

Я пытаюсь получить значение из следующего HTML-кода из Excel VBA:

 <span id= "myId">0</span>
 

VBA:

 Dim http As Object, html As New HTMLDocument, HTMLDoc As Object, el As HTMLHtmlElement

sUrl = "https://www.example.com"
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", sUrl, False
http.send
html.body.innerHTML = http.responseText

Set HTMLDoc = html.getElementById("myId")
Sheet1.Range("A1").Value = HTMLDoc.innerText
 

В последней строке этого кода я получаю ошибку:

Ошибка 91 во время выполнения: переменная объекта или с не заданной переменной блока