Html 使用Excel VBA填写网站搜索栏

我试图制作一个Excel宏，将数据插入web搜索表单，然后将结果复制到表中。web搜索表单实际上不是一个表单，而是一个空白表，因此我不能只更改表单的输入值，因为没有：

<td valign="top">
    <table border="0" cellspacing="0" cellpadding="2">
        <tr>
            <th class="navLabelText" align="left">Order:</th>
            <td>
                <input class="navEditField" id="opt_ordernumber_int" name="ordernumber" type="text" size="6" maxlength="6" />
            </td>
        </tr>
    </table>
</td>
<td width="10">&nbsp;</td>

通常您可以更改表单的HTML值，但在这种情况下，输入标记中没有HTML值，因此我不知所措。我的目标是在表单中插入一个订单号，然后点击提交按钮。很遗憾，我无法向您展示该网站，因为它是一个内部公司网站，但以下是相关信息的屏幕截图：

---

谢谢

我发现VBA中的某些元素（包括输入）必须首先关注元素：

    objCollection(i).Focus
    objCollection(i).Value = "655032"

---

欢迎来到StackOverflow。到目前为止你试过什么吗？作为新用户，您可能需要查看常见问题解答，以获得您想要的答案。我们是否可以看到该网站的链接？到目前为止，您获得了什么？你以前试过这样的东西吗？了解您的知识水平是很有用的，这样我们就可以在正确的水平上提出任何建议。@用户-如果源HTML中的元素中没有value属性，那没关系：当您通过代码设置值时，在提交表单时仍应发送该值。注意-由于您的输入元素有一个id属性，您只需使用doc.getElementByIdopt_ordernumber_int.value=655032：无需循环查找输入。

If objCollection(i).Name = "ordernumber" Then

    ' Set text for search
    objCollection(i).Value = "655032"

    objCollection(i).Focus
    objCollection(i).Value = "655032"