主题：动态加载和卸载

 这个网页是跳转的，       但我每次 都 采集到的是，  跳转前的代码...

还有就是  不能直接  采集  

 回复12楼，你的内存满，是因为web你在循环里重复生成了。把它放到外面去。

 

Dim i As Long
Dim web As New System.Windows.Forms.WebBrowser
For i = 564410245050 To 564410245067 '564410245267
    e.Form.Controls("Label1").text= i
    web.Navigate("http://k2k.sagawa-exp.co.jp/p/web/okurijosearch.do?okurijtable")
        For Each elem As System.Windows.Forms.Htmlelement In elems
            If elem.GetAttribute("id") Like "_id46:tb1" Then
                Dim e_Info As System.Windows.Forms.HtmlElement = elem.GetElementsByTagName("tbody")(0)
                Dim e_Info1 As System.Windows.Forms.HtmlElement = e_Info.GetElementsByTagName("tr")(0).GetElementsByTagName("td")(2)
                If e_Info1.InnerText <>"お問い合わせNo.をお確かめ下さい." Then  '判断货号存在的时候保存
                    Tables("表A").AddNew
                    Tables("表A").Current("第一列") = i
                    DataTables("表A").Save()
                End If
            End If
           
        Next
    End If
Next

 跳转问题 不能解决么？

 

测试了一下，这个问题不能解决。你还是让程序等候几秒算了。

 

或者检测是否存在某个元素，不存在，就让他继续等候。

 我虽然不会， 我试试，   不行 在来发帖子哈～  晚安