Question

我需要点击IE中的按钮。我尝试了几个选项却没有成功。我尝试的一切都使用TagName / ClassName / Name / ID。但我在下面找不到任何这些内容。

<FORM method=post name=frmSearch action=searchResultsSummary>
<INPUT type=hidden value=GMT+01:00 name=clitz> 
<DIV style="MARGIN-LEFT: 30px">
<DIV style="MARGIN-BOTTOM: 10px; FONT-WEIGHT: bold">Common Criteria</DIV>
<TABLE style="MARGIN-LEFT: 20px" cellSpacing=5 cellPadding=0 border=0>
<TBODY>
<TR>
<TD id=oDocumentCategoryCell style="HEIGHT: 22px" colSpan=3 noWrap>Document category:</TD>
<TD colSpan=3 align=left>
<SELECT style="DISPLAY: block" name=docCategory old_value="2">
<OPTION value=%>Any Category</OPTION>
<OPTION value=FINANCE>Finance Document</OPTION>
<OPTION selected value=INBOUND>Inbound Document</OPTION>
<OPTION value=PROCESS>Internal Process</OPTION>
<OPTION value=OUTBOUND>Outbound Document</OPTION>
</SELECT>
</TD>
<TD style="WIDTH: 15px"></TD>
<TD>
<INPUT onclick="javascript:if (!validateSearchForm()) return;if (!checkCountOfDays()) return; addRefKeysToForm(frmSearch); frmSearch.submit();" style="WIDTH: 100px" type=button value=Search>
</TD></TR>
<TR>
<TD style="HEIGHT: 22px" colSpan=3 noWrap>Document type:</TD>
<TD colSpan=3 align=left>
<SELECT style="DISPLAY: block" name=docType old_value="0">
<OPTION selected value=%>Any Type</OPTION>
<OPTION value=CSN_ORD_VALID>CSN Order Validation</OPTION>
<OPTION value=CREDIT_ORD>Credit Order</OPTION>
<OPTION value=EOI_ORDCPY>EOI Order Copy</OPTION>
<OPTION value=LEASE_ORD>Lease Order</OPTION>
<OPTION value=ORDER_REPORT>Order Load Report</OPTION>
<OPTION value=TRADE_ORD>Trade Order</OPTION>
<OPTION value=WATSON>WATSON Quote</OPTION>
<OPTION value=WATSON_UPDATE>WATSON Update Quote</OPTION>
<OPTION value=WNGQ>WNGQ Request</OPTION></SELECT> </TD></TR>
<TR>

我尝试使用输入标记，但它无效。

我使用了以下代码。它点击我想要的按钮，但它没有考虑我在点击提交按钮之前给出的值。

Dim btnInput As MSHTML.HTMLInputElement
Dim frm As MSHTML.IHTMLElementCollection
Application.ScreenUpdating = True

Set frm = ie.Document.getElementsByName("frmSearch")
For Each btnInput In frm

If btnInput.Value = "frmSearch.submit()" Then
    btnInput.submit
    Exit For
End If
Next btnInput

有人可以帮助我点击按钮。

Answer 1

正如@Tim Williams所说，这应该有效document.querySelector("input[value=Search]")。

如果这仍然没有返回正确的输入元素，那么可以根据搜索到的输入所在的DOM树使选择器更具体，例如，像这样。

' Add reference to Microsoft Internet Controls (SHDocVw)
' Add reference to Microsoft HTML Object Library

Dim inputElement As HTMLInputElement
Set inputElement = doc.querySelector( _
    "div[class=main] div[id=inner] table input[type=button][value=Search]")

If Not inputElement Is Nothing Then
    inputElement.Click
End If

HTML

<div class="main">
    <div id="inner">
        <table>
            <tbody>
                <tr>
                    <td>
                        <INPUT onclick="alert('This is the corect one');" 
                            style="WIDTH: 100px" 
                            type=button 
                            value=Search>
                    </td>
                </tr>
            </tbody>
        </table>
    </div>
</div>
<INPUT onclick="alert('No this is not the searched one');" 
    style="WIDTH: 100px" 
    type=button 
    value=Search>

编辑：

不确定我是否正确理解您的问题。要选择INPUT元素，可以使用此选择器：

Set inputElement = doc.querySelector( _
    "form[name=frmSearch] table tbody tr td input[type=button][value=Search]")

要设置值属性setAttribute()，可以使用函数。要检查值属性getAttribute()，可以使用函数。

If Not inputElement Is Nothing Then
    inputElement.setAttribute "value", "some-new-value"
    If inputElement.getAttribute("value") = "some-new-value" Then
        inputElement.Click
    End If
End If

VBA单击IE中没有ID，Name，ClassName的按钮

1 个答案: