Question

我制作了一个代码，可以使用A2中的单元格在特定网站中搜索它，并提取我需要的标准。我无法为此做出正确的循环。有人能指出我正确的方向吗？（细胞从A2到A1829）

代码：

Sub SearchBot()

    Dim objIE As InternetExplorer 
    Dim aEle As HTMLLinkElement 
    Dim y As Integer 
    Dim result As String 
    Dim TR As Object, TD As Object
    Dim tbl As Object, obj_tbl As Object
    Dim lastRow As Long
    Dim start_time As Date
    Dim end_time As Date

    Set objIE = New InternetExplorer  

    objIE.Visible = True  'make IE browser visible
    objIE.navigate "https://capitaliq.com" 

    Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop 

    For i = 1 to 1829
        objIE.document.getElementById("SearchTopBar").Value = _
            Sheets("Sheet2").Range("A" & i).Value  
        Set oNode = objIE.document.getElementsByClassName("iPadHack tmbsearchright")(0) 
        oNode.Click

        Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop 

        b = 2   

        Dim tblEle As Object
        Set tblEle = objIE.document.getElementsByClassName("cTblListBody")(5) 

        Sheets("Sheet2").Range("B" & b).Value = tblEle.innerText
        Debug.Print tblEle.innerText

        b = b + 1 

   Next i 

   objIE.Quit 
End Sub

Answer 1

你没有在任何地方使用循环变量，猜测它应该是这一行：

Sheets("Sheet2").Range("A").Value

更改为：

Sheets("Sheet2").Range("A" & i).Value

使用循环自动搜索

1 个答案: