EXcel VBA打开网页后如何点击按钮？

我爱星期二

各位大神请教一下：
我用EXcel VBA打开网页后如何点击这个“发消息”按钮？
我查看他代码里，没有id，也没有name，那应该如何点击？谢谢了

打开网页代码：
Sub a11122()
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate "http://i.dxy.cn/profile/子之还医"
While ie.Busy Or ie.ReadyState <> 4
Wend
？？？？？？？？？？请教如何点击这个“发消息”按钮
End Sub


截图和代码如下：



<div class="dropdown-wrap pr responsive">
<a href="javascript:void(0)" class="ui-btn mr10 fs12">
<span>发消息</span>
<span class="ui-btn__dropdown">
<em><i class="dropdown-ico"></i></em></span></a>
<a href="javascript:void(0);" class="ui-btn__droplist fs12 dl2" id="J-add-black">加入黑名单</a>
</div>

phsu

ie.document.getElementsByClassName("ui-btn mr10 fs12")(0).getElementsByTagName("span")(0).Click

我爱星期二

phsu 发表于 2020-5-28 15:03
ie.document.getElementsByClassName("ui-btn mr10 fs12")(0).getElementsByTagName("span")(0).Click

非常感谢大神，问题解决了。非常非常感谢。

再请教另一个问题。就是点击之后 打开了另一个页面，网址也变了。
如何将这个网址 保存到 Excel的单元格内？
谢谢，大神。

phsu

我爱星期二 发表于 2020-5-29 00:16
非常感谢大神，问题解决了。非常非常感谢。

再请教另一个问题。就是点击之后 打开了另一个页面，网址 ...

[a1].Value = ie.document.Location

duquancai

我爱星期二 发表于 2020-5-29 00:16
非常感谢大神，问题解决了。非常非常感谢。

再请教另一个问题。就是点击之后 打开了另一个页面，网址 ...

还有追问的没有？一口气说完。

我爱星期二

phsu 发表于 2020-5-29 12:32
[a1].Value = ie.document.Location

大神，你好，
我刚才试了，出来的还是旧网址 http://i.dxy.cn/profile/子之还医
如何才能对新打开的网页进行操作？
点击新网页的按钮也报错。
多谢大神指点