Selenium Webdriver VBA-新循环错误

Question

晚安，

如果可能的话，我希望一些帮助。我将此代码放在一起，但是如果找不到页面项目，我将无法创建输出。我希望，如果他没有找到Intem，他会去下一行，因为我有很多数据要捕获，因此不会显示错误消息。

Dim drive As New Selenium.ChromeDriver
Dim ks As Selenium.Keys
Dim tempo As Integer
Set ks = New Selenium.Keys

site = "http://www.google.com"


Plan1.Select


tell = Range("A" & Rows.Count).End(xlUp).Row
Line = 4



drive.Start
drive.Get site

Do Until Cells(Linha, 1) = ""


For Line = 4 To tell
Number = Range("A" & Linha).Value


drive.SwitchToFrame drive.FindElementById("WIDGET_ID_4")

Set telephone = drive.FindElementByXPath("/html/body/.........")

Range("B" & Line).Value = telephone.Attribute("outerText")


drive.SwitchToDefaultContent






Next Linha


Loop



drive.Quit

MsgBox "Process Ok"


End Sub```

Answer 1

在循环中，测试是否找到“选项卡”，即如果不是 tab 是什么都不做的。将设定线包装在一个错误简历中，下一个错误goto 0对，以抑制未发现异常的潜在元素。

我认为Linha应该是行，并使用数字来设置下一个ID。

请注意，使用不合格的范围，例如，没有指定工作表，您隐含地引用了当前的ActiveSheet，这是易于错误的。

Do Until Cells(Line, 1) = vbNullString

    For Line = 4 To tell
    
        Number = Range("A" & Line).Value

        Dim targetTab As webElement
        
        On Error Resume Next 'suppress potential exception
        Set targetTab = drive.FindElementById("WIDGET_ID_4")     
        On Error GoTo 0 'switch exception raising back on

        If Not targetTab Is Nothing Then 'test if reference obtained for target element
        
            drive.SwitchToFrame targetTab

            Set telephone = drive.FindElementByXPath("/html/body/.........")

            Range("B" & Line).Value = telephone.Attribute("outerText")
  
            drive.SwitchToDefaultContent
            Set targetTab = Nothing
        End If

    Next Line

Loop