我已经写在VBA刮刀解析从洪流站点的某些影片信息退出浏览器。我用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
参考我已经添加到库中:
1. Microsoft Internet Controls
2. Microsoft HTML Object Library
那么,什么是错的queryselector
或什么,我在这里失踪,使一个成功的去吗?是否有任何参考添加到图书馆摆脱错误?
快速检查:不改变'queryselector'到'querySelector'使第一个代码示例中有什么区别? – alecxe
不,先生,没有任何改变。事实上,如果我尝试编写'querySelector',它会自动回到'queryselector'的小写字母。 – SIM
好吧,试试这个:直接执行'post.innerText',而不是执行'post.queryselector'。这不是你想要做的,但让我们试验。你看到同样的错误?谢谢。 – alecxe