\'\'\'

Dim web As New System.Windows.Forms.WebBrowser

Dim ide As Integer

For ide= 0 To 1 Step 1

    Dim ides As Integer

    e.Form.Controls("Label15").text = ide

    ides = ide *10

    web.Navigate("https://www.google.co.jp/#filter=0&q=%E5%9C%B0%E7%90%83&start=" & ides)

    Do Until web.ReadyState = 4

        Application.DoEvents

    Loop

    Dim elems As System.Windows.Forms.HtmlElementCollection

    Elems = web.Document.GetElementsByTagName("OL")   \'根据标签得到数据集合

    For Each elem As System.Windows.Forms.Htmlelement In elems

        Dim sa As Integer

        If elem.GetAttribute("Id") Like "rso" Then

            For sa= 0 To 100 Step 1

                If elem.GetElementsByTagName("H3").Count  =sa  Then

                    Exit For

                Else

                    Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("H3")(sa)

                    Dim e1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("A")(0)

                    Dim e_Info1 As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("A")(sa)

                    Dim r As Row = Tables("表A").AddNew

                    r("网页名") = e1.InnerText

                    r("URL") = e_Info1.InnerText

                End If

            Next

        End If

    Next

Next