Question

我需要根据所述代码中的第12行（Accrued Other Associate Wages）相对于我的excel工作簿中的预定义值，在下面的HTML代码的第2行上.Click href 。换句话说，如果我的工作簿中的单元格=＆＃34;累计其他合作工资＆＃34;，则单击包含＆＃34;累计其他合作工资＆＃34;的href;作为沿X轴的表属性）。请注意，我尝试导航的特定网络表单被排列为表格。每个＆＃34;按钮＆＃34;我需要在Y轴上单击具有相同的href内部文本，但沿X轴具有唯一标识符。

非常感谢任何帮助。

最佳，

捐赠

<td>
                                <a tabindex="33" id="ctl00_MainContent_assignedAccountsGrid_ctl00_ctl04_lnkReconcile" onclick="javascript:return CheckInterval();" href="javascript:__doPostBack('ctl00$MainContent$assignedAccountsGrid$ctl00$ctl04$lnkReconcile','')">Reconcile</a>
                            </td>
<td>US</td>
<td>CORP</td>
<td>DOM</td>
<td>2202050</td>
<td>XX</td>
<td>XX</td>
<td>XX</td>
<td>0L</td>
<td>Accrued Other Associate Wages</td>

Answer 1

我希望我能正确理解你。

试试这个：

Sub clickIt()

    Dim ie As Object

    ' .... navigate and ensure page is fully loaded

    Dim myVal As String, objColl As Object, o As Object
    myVal = "Accrued Other Associate Wages" 'Whatever you are trying to click

    Set objColl = ie.document.getelementbyid("ctl00_MainContent_assignedAccountsGrid_ctl00_ctl04_lnkReconcile")
    Set objColl = objColl.getElementsByTagName("td")

    For Each o In objColl
        If o.InnerHTML Like "*" & myVal & "*" Then
            Exit For
        End If
    Next o

    o.Click

End Sub

。根据html表中的值单击href

1 个答案: