Excel 多选项VBA的Link.innertext

Excel 多选项VBA的Link.innertext,excel,vba,Excel,Vba,我访问了一个带有以下代码的网站,并点击了一个链接,但我发现对于不同的位置,单词可以是2种类型。 第一个是在代码“fener”中使用的,第二个是“buyuk fener”。我需要单击正在使用的链接 所以我找不到任何解决办法 Dim link As Object Set doc = ie.document For Each link In doc.Links If link.innerText = Sheets("Mail").Range("A15").Tex

我访问了一个带有以下代码的网站,并点击了一个链接,但我发现对于不同的位置,单词可以是2种类型。 第一个是在代码“fener”中使用的,第二个是“buyuk fener”。我需要单击正在使用的链接

所以我找不到任何解决办法

Dim link As Object
Set doc = ie.document
For Each link In doc.Links
If link.innerText = Sheets("Mail").Range("A15").Text Then
link.Click
Exit For
End If
Next link
While ie.Busy Or ie.readyState < 4: DoEvents: Wend
For Each link In doc.Links
If link.innerText = "Fener" Then
link.Click
Exit For
End If
Next link
Dim链接作为对象
Set doc=ie.document
对于doc.Links中的每个链接
如果link.innerText=Sheets(“Mail”).Range(“A15”).Text,则
链接。点击
退出
如果结束
下一环节
当ie.Busy或ie.readyState<4:DoEvents:Wend时
对于doc.Links中的每个链接
如果link.innerText=“Fener”,则
链接。点击
退出
如果结束
下一环节

检查
instr
并使用检查链接是否包含
buyuk fener
@FoxfireAndBurnsAndBurns感谢您的评论。我以前没用过仪器。你能说得更具体些吗?“谢谢”将允许您检查字符串是否包含特定文本,如果找到,则返回数字。如果未找到,它将返回0。这样,您就可以检查链接是否包含单词
fener
,并在需要时单击它。