Question

我正致力于自动化任务。我想使用VBA点击网络表单上的Save按钮，但它无效：

<input name="save" title="Save" class="btn" type="submit" value=" Save ">
<input name="save" tabindex="79" title="Save" class="btn" type="submit" value=" Save ">

我已经尝试了ie.Document.all("save").Click，但它似乎无法运作。单击按钮需要什么方法？

Answer 1

您可以尝试浏览所有的＆＃34; btn＆＃34;类集合，然后单击具有save值的那个：

Dim btnClassColl As Object, btn As Object
Set btnClassColl = ie.document.getElementsByClassName("btn")

For Each btn In btnClassColl
    If btn.Value Like "*save*" Then
        btn.Click
        Exit For
    End If
Next

此外：在尝试自动化任何内容之前，请确保您的网页已完全加载。

修改

回应评论：


此代码既没有给出错误也没有点击btn。这可能是因为网页上有两个具有相同名称和功能的按钮吗？

另一种解决方案是，如果您知道集合项的索引号，您可以简单地使用该索引号而不是循环。在这种情况下，您的索引号为1（请记住：Base 0）。

尝试这个替代方案：

Dim btn As Object
ie.document.getElementsByName("save")(1) '1 actually means #2 in index

如何使用VBA单击Web表单上的“保存”按钮

1 个答案:

修改