上的错误不能与IE浏览器自动化工作

Question

我的代码是从网站获取信息，但在某些情况下，该信息的HTML代码，只是不存在，所以我用On Error来处理它。如您在代码中看到的，我正在浏览列表并获取每行（大约700行）的信息。起初，错误发生在第10行，然后我添加了On Error GoTo 0。之后，它开始在第13行抛出。

我的配置已经设置为关于Unhandeled Errors的破解。

的运行时错误号码为：

91：对象未设置变量或With块变量。

它在线路之间发生的“**”

Sub GetData_DK() 

    Dim IE As New InternetExplorer 
    Dim URL As String 
    Dim doc As HTMLDocument 'variable for document or data which need to be extracted out of webpage 
    Dim onl As String 
    Dim sto As String 
    Dim pri As String 
    FinalRow = tme.Cells(Rows.Count, "G").End(xlUp).Row 

    Dim hyper As Workbook 
    Set hyper = Workbooks.Open("path") 
    FinalRowH = hyper.Sheets("tme").Cells(Rows.Count, "A").End(xlUp).Row 
    ThisWorkbook.Activate 

    For a = 5 To FinalRow 

     onl = "" 
     sto = "" 
     pri = "" 

     For b = 5 To FinalRowH 
      If (ThisWorkbook.Sheets("tme").Cells(a, 7).Value = hyper.Sheets("tme").Cells(b, 1).Value) Then 
       URL = hyper.Sheets("tme").Cells(b, 3).Value 
       Exit For 
      End If 
     Next b 

     IE.navigate URL 
     IE.Visible = True 

     Do 
      If IE.readyState = READYSTATE_COMPLETE Then 
       If IE.document.readyState = "complete" Then Exit Do 
      End If 
      Application.Wait DateAdd("s", 1, Now) 
     Loop 
     'Application.Wait (Now() + TimeValue("00:00:006")) ' For internal page refresh or loading 


     Set doc = IE.document 

     On Error Resume Next 
     'gets HTLM class containing the value 
     **onl = CStr(doc.getElementsByClassName("items-in-stock align-left")(0).innerText)** 
     On Error GoTo 0 
     If (onl = Chr(160) Or onl = " " Or onl = " " Or onl = "" Or onl = vbNullString Or Left(onl, 9) = "Forventet") Then 
      Cells(a, 8).Value = 0 
     Else 
      Cells(a, 8).Value = 1 
     End If 

     On Error GoTo price 
     'repeats the process for stores 
     sto = CStr(doc.getElementsByClassName("open-cas-tab")(0).innerText) 
     sto = Left(sto, InStr(sto, " ") - 1) 
     Cells(a, 9).Value = sto 

price: 
     On Error GoTo 0 

     On Error Resume Next 
     'repeats the process for price 
     pri = CInt(CStr(doc.getElementsByClassName("product-price-container")(0).innerText)) 
     Cells(a, 10).Value = pri 
     On Error GoTo 0 
    Next a 
End Sub 

请让我知道我做错了什么（：

Answer 1

如果没有的元素是通过使用getElementsByClassName返回那么您可以测试length属性，它将为0.如果尝试访问第0个元素时尝试跳过生成的错误，因为您认为会得到肯定的结果，所以最好选择此项。

所以你可以试试这个：

Set doc = IE.document 

Dim objElements As Object 
Set objElements = doc.getElementsByClassName("items-in-stock align-left") 

If objElements.length > 0 Then 
    ' some elements are returned - get the text from the first one 
    onl = CStr(objElements(0).innerText) 
Else 
    ' nothing returned - lets handle it gracefully with no error 
    MsgBox "No elements with that class!" 
    '... prepare to exit 
End If 

' do stuff with onl