Редактировать Проданные Объявления Ebay Scrape VBA

Question

Ищите способ сделать это одним из двух способов через Excel VBA.

1) либо запустить поиск на ebay по номеру детали и вернуть количество проданных списков, либо;

2) выполнить ту же задачу по прямой ссылке.

Есть идеи?

Я пробовал:

Publi c Sub GetNumberSold () Dim html Как HTMLDocument

Set html = New HTMLDocument

With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "https://www.ebay.com/itm/VIRGINIA-CAVALIERS-FINAL-FOUR-National-FREAKIN-Champions-T-Shirt-Gildan/352639122861", False
    .send
    html.body.innerHTML = .responseText
End With

MsgBox html.querySelector(".vi-txt-underline").innerText
Debug.Print Replace$(html.querySelector(".vi-txt-underline").innerText," sold",vbNullString)
Debug.Print split(html.querySelector(".vi-txt-underline").innerText,chr$(32))(0)

End Sub

С включением обоих объектов / ссылок, как указано ниже.

Тогда я получаю следующую ошибку: переменная объекта времени выполнения "91" или переменная блока не установлена.