使用 VBA 自动化 IE - 单击具有跨度的锚按钮

Question

我目前正在为在 saleforce 中上传文件进行自动化操作。

HTML 文本是：

 <div>
<a href="javascript:void(0);" onblur="chatter.getFeed().contentCommentActionBlur(this);" onfocus="chatter.getFeed().contentCommentActionFocus(this);" onclick="chatter.getFeed().createContentComment(this,'0D52700002cc67d', false, true);" onmousedown="chatter.getFeed().contentCommentActionMouseDown(this);" class="cxcontentcommentaction">
<img class="cxcontentcommentactionimg" src="/s.gif">
<span class="cxcontentcommentactiontext">Attach File</span>
</a>
</div>

点击锚点的用户需要向下按“附加文件”按钮。

我尝试了两种不同的做法

1.编码通过anchor class="cxcontentcommentaction"获取元素：

Set htmldoc = mydoc.getElementsByClassName("cxcontentcommentaction")
    htmldoc.Click

2.Coding通过span class="cxcontentcommentactiontext"获取元素：

Set htmldoc = mydoc.getElementsByClassName("cxcontentcommentactiontext")
    htmldoc.Click

对于这两个我都收到错误“对象不支持此属性

在你的评论之后，我试过这样，

Set oElementCollection = mydoc.getElementsByClassName("cxcontentcommentactiontext")

    For Each link In oElementCollection
    If link.innerHTML = "Attach File" Then
        link.Click
        Exit For
    End If
Next link

我已经尝试过以下 HTML

<a href="javascript:window.invokeOnClickJS_00bG0000000ikPK%28this%29" class="menuButtonMenuLink">
Send an Email</a>

下面的代码对上面的html正常工作

Set oElementCollection = mydoc.getElementsByClassName("menuButtonMenuLink")


    For Each link In oElementCollection
    If link.innerHTML = "Send an Email" Then
        link.Click
        Exit For
    End If
Next link

但是这个问题中提到的“附加文件”按钮只会出现问题。

Answer 1

getElementsByClassName 方法返回具有此类名称的元素集合。这是因为 HTML DOM 可以包含多个具有相同类名的元素。这就是复数形式 getElements 的原因。所以你需要知道你需要的元素集合中的哪个元素。如果是第一个，那么：

...
Set oElementCollection = mydoc.getElementsByClassName("cxcontentcommentaction")
oElementCollection(0).Click
...

如果第一个不正确，那就试试

For i = 0 To oElementCollection.Length - 1
 MsgBox oElementCollection(i).innerHTML
Next

找到合适的。

编辑：

在您在问题中添加之后：

与

Set oElementCollection = mydoc.getElementsByClassName("cxcontentcommentactiontext") 

您可能会得到span 对象而不是链接的集合。但是那些span 元素应该在链接中。所以链接是他们的父母。

所以

Set oElementCollection = mydoc.getElementsByClassName("cxcontentcommentactiontext")

    For Each span In oElementCollection
    If span.innerHTML = "Attach File" Then
        span.parentNode.Click
        Exit For
    End If
Next span