点击链接后如何返回？

Question

我对在 vba 中使用 IE 非常陌生，因此有时我很难纠正我在编写任何代码以从网络上抓取数据时所犯的任何错误。我已经编写了一些代码来单击标题 Microsoft computer training videos 下的 20 个链接中的每个视频链接，该标题位于其首页。我希望单击每个链接，然后返回并重复该过程，直到单击所有链接。我在爬虫中定义的类名和标签名是准确的。我需要做的就是以正确的方式执行该过程。此时，我的爬虫正在单击 20 个链接中的最后一个链接，然后卡在它到达的地方，但没有返回。

这是我到目前为止写的。

Sub clicking_links()

    Const surl As String = "http://www.wiseowl.co.uk/videos/"
    Dim IE As New InternetExplorer, iedoc As HTMLDocument
    Dim posts As Object

    With IE
        .Visible = True
        .navigate surl
        Do Until .readyState = READYSTATE_COMPLETE: Loop
        Set iedoc = IE.document
    End With

    For Each posts In iedoc.getElementsByClassName("woVideoListDefaultSeriesTitle")
        posts.getElementsByTagName("a")(0).Click
    Next posts

End Sub

Answer 1

尝试以下方法：

Sub clicking_links()

    Const surl As String = "http://www.wiseowl.co.uk/videos/"
    Dim newurl as String
    Dim IE As New InternetExplorer, iedoc As HTMLDocument
    Dim posts As Object
    Dim t As Long, i As Long

    With IE
        .Visible = True
        .navigate surl
        Do Until .readyState = READYSTATE_COMPLETE: Loop
        Set iedoc = .document

        For Each posts In iedoc.getElementsByClassName("woVideoListDefaultSeriesTitle")
            t = t + 1 'count the number of posts
        Next posts

        For i = 1 To t
            Debug.Print i
            newurl = iedoc.getElementsByClassName("woVideoListDefaultSeriesTitle")(i - 1).getElementsByTagName("a")(0).href
            Debug.Print newurl

            .navigate newurl
            Do Until .readyState = READYSTATE_COMPLETE: Loop
            Set iedoc = .document
            'here do your stuff within the new url

            .navigate surl 'back to old url
            Do Until .readyState = READYSTATE_COMPLETE: Loop
            Set iedoc = .document
        Next i

    End With
End Sub