Я написал скребок для разбора информации о фильмах с торрент-сайта. Я использовал IE
и queryselector
.
Мой код все разбирает. Выдает ошибки вместо выхода из браузера, когда все сделано. Если я отменю сообщение об ошибке, я смогу увидеть результаты.
Вот полный код:
Sub Torrent_Data()
Dim IE As New InternetExplorer, html As HTMLDocument
Dim post As Object
With IE
.Visible = False
.navigate "https://yts.am/browse-movies"
Do While .readyState <> READYSTATE_COMPLETE: Loop
Set html = .Document
End With
For Each post In html.querySelectorAll(".browse-movie-bottom")
Row = Row + 1: Cells(Row, 1) = post.queryselector(".browse-movie-title").innerText
Cells(Row, 2) = post.queryselector(".browse-movie-year").innerText
Next post
IE.Quit
End Sub
Я загрузил два изображения, чтобы показать ошибки.
Обе ошибки появляются одновременно.
Я использую Internet Explorer 11.
Если я попытаюсь, как показано ниже, это принесет результаты успешно, без проблем.
Sub Torrent_Data()
Dim IE As New InternetExplorer, html As HTMLDocument
Dim post As Object
With IE
.Visible = False
.navigate "https://yts.am/browse-movies"
Do While .readyState <> READYSTATE_COMPLETE: Loop
Set html = .Document
End With
For Each post In html.getElementsByClassName("browse-movie-bottom")
Row = Row + 1: Cells(Row, 1) = post.queryselector(".browse-movie-title").innerText
Cells(Row, 2) = post.queryselector(".browse-movie-year").innerText
Next post
IE.Quit
End Sub
Ссылки добавлены в библиотеку:
- Microsoft Internet Controls
- Microsoft HTML Object Library
Есть ли какие-либо ссылки для добавления в библиотеку, чтобы избавиться от ошибок?