网页抓取时错误，要求对象

murat318

工作需要前2天制作了这个工具去网页上抓取数据，之前也碰到同样的问题，后又高人指点可能是cookie的问题，清除后就好用了。昨天下午开始又碰到同样的问题了，清理cookie也没用，有没有大神可以指点一下问题出在那里，怎么解决？
PS:登陆不需要密码点游客登陆就可以了。

Private Sub capture()
    Dim wksmainsheet As Worksheet
    Dim lngmainsheetrows As Long
        
    Dim ie, dmt, tbs, i&, tb
   
    Set wksmainsheet = ActiveWorkbook.Worksheets("Shipment")
   
    Set ie = CreateObject("InternetExplorer.Application")  
    With ie
        .Visible = True
        .navigate "http://210.13.100.102/scs/Web/Pages/signin.aspx"  
        Do Until .ReadyState = 4  
            DoEvents
        Loop
        
        Set dmt = .document  
        dmt.all("hrefVisitor").Click
        
        Sleep 3000
        Do Until .ReadyState = 4 And ie.busy = False
            DoEvents
        Loop
        
        lngmainsheetrows = 2
        Do While wksmainsheet.Cells(lngmainsheetrows, 1) <> 0
            Do Until .ReadyState = 4 And ie.busy = False  
                DoEvents
            Loop
        
        'Set dmt = .document
        dmt.all("_ctl0_ContentPlaceHolderMain_txtNum").Value = wksmainsheet.Cells(lngmainsheetrows, 1)
        'dmt.all("_ctl0:ContentPlaceHolderMain:txtNum").Value = wksmainsheet.Cells(lngmainsheetrows, 1)
        dmt.all("_ctl0_ContentPlaceHolderMain_btnSearch").Click
        
            Do Until .ReadyState = 4 And ie.busy = False   
                DoEvents
            Loop
        
        'MsgBox dmt.all("_ctl0_ContentPlaceHolderMain_txtNum").Value
        
        wksmainsheet.Cells(lngmainsheetrows, 2) = dmt.all("_ctl0_ContentPlaceHolderMain_lblResult").innertext
        
        x = InStr(wksmainsheet.Cells(lngmainsheetrows, 2), wksmainsheet.Cells(lngmainsheetrows, 1))
        lngmainsheetrows = lngmainsheetrows + 1
        Loop
    End With
    ie.Quit
End Sub

duquancai

慢慢玩         

murat318

duquancai 发表于 2018-8-15 13:32
慢慢玩

朋友，你心态不太好啊！
这个问题已经解决了。。。

zhang6029

我试了一下，程序没问题。。

murat318

zhang6029 发表于 2018-8-16 14:21
我试了一下，程序没问题。。

这个有时有问题，有时好的。感觉是网页登录后会生成2个页面，一个是登录界面，另外一个是查询界面。有时object抓取的时候会抓取到登录界面的而非查询界面的数据，所以会产生对象不可用的情况。具体原因不详。。

zhang6029

用的ie什么版本?会不会和ie有关系。我是在win7 ie11，运行正常，试过五次，没出错，要匹配的内容都走过了