VBA Internet Explorer 网页链接选择

Question

我当前的代码打开一个网站并登录。下一步是我想在下一页选择一个链接，但不知道如何让代码点击它（第一次弄乱 HTML 代码）。下面是该链接后面的 HTML 图片。如果需要更多信息，我可以更新更多图片。

<td align="left" style="vertical-align: top;">
<div class="gwt-Hyperlink">PRC search by selection</div>
</td>

我的 Excel 代码：

Sub Login()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
   ' ie.navigate "http://sqa.subaru-sia.com/nxps/nxps?action=defaultPage"   ' Modify the URL here....
Const Url$ = "http://sqa.subaru-sia.com/nxps/nxps?action=defaultPage"
 Dim UserName As String, Password As String, LoginData As Worksheet
 
    UserName = "xxxxxxx"
    Password = "xxxxxxx"
    
    With ie

    .navigate Url
    ieBusy ie
    .Visible = True

    Dim oLogin As Object, oPassword As Object
    Set oLogin = .document.getElementsByName("j_username")(0)
    Set oPassword = .document.getElementsByName("j_password")(0)

    oLogin.Value = UserName
    oPassword.Value = Password
    .document.forms(0).submit

    End With

    Do While ie.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
   Set myColl = ie.document.getElementsByTagName("div")
    For Each myItm In myColl
        Cells(i + 1, 1) = "Table# " & ti + 1
        ti = ti + 1: i = i + 1
        For Each trtr In myItm.Rows
            For Each tdtd In trtr.Cells
                'Debug.Print (tdtd.innerText)
                If tdtd.innerText = "PRC search by selection" Then
                    tdtd.Children(0).Click
                End If
                j = j + 1
            Next tdtd
            i = i + 1: j = 0
            DoEvents
        Next trtr
        i = i + 1
    Next myItm
    
    'ie.Quit
End Sub


Sub ieBusy(ie As Object)
    Do While ie.Busy Or ie.readyState < 4
        DoEvents
    Loop
End Sub

Answer 1

从描述来看，您似乎想在使用 IE VBA 自动化的页面上单击带有文本PRC search by selection的链接。

如果我们尝试检查图像中的 HTML 代码，我们会注意到该页面包含嵌套表格，而您假设的链接实际上是一个 DIV 标记。所以我假设你想点击DIV。

我尝试使用嵌套表格和类似的 DIV 制作一个测试网页，并尝试使用以下代码单击 DIV。

Sub demo()
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "https://Your_website_here..."   ' Modify the URL here....

    Do While ie.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
   Set myColl = ie.document.getElementsByTagName("TABLE")
    For Each myItm In myColl
        Cells(i + 1, 1) = "Table# " & ti + 1
        ti = ti + 1: i = i + 1
        For Each trtr In myItm.Rows
            For Each tdtd In trtr.Cells
                'Debug.Print (tdtd.innerText)
                If tdtd.innerText = "PRC search by selection" Then
                    tdtd.Children(0).Click
                End If
                j = j + 1
            Next tdtd
            i = i + 1: j = 0
            DoEvents
        Next trtr
        i = i + 1
    Next myItm
    
    'ie.Quit
End Sub

输出：

此外，您可以尝试根据自己的要求修改代码。