如何实现当FindElementByPartialLinkText未找到可点击链接时跳过执行并继续运行？及Runtime error 438问题解决

为什么会出现Runtime error 438？ #

你的代码报错主要有两个核心原因：

• FindElementByPartialLinkText默认参数raise=True，这意味着当找不到匹配元素时，函数会直接抛出错误，而不是返回False——这就是你碰到438错误的根源。
• 这个函数找到元素时返回的是元素对象，并非布尔值，所以直接用=False做相等判断是不符合语法逻辑的，对象不能和布尔值直接比较。

如何正确实现你的需求？ #

根据函数定义里的可选参数raise，我们可以把它设为False，这样当找不到元素时，函数会返回Nothing（不会报错），我们就能通过判断返回值是否为Nothing来处理跳转逻辑，同时通过错误捕获跳过不可点击的情况，让程序继续运行。

完整代码示例

Dim targetElement As Object
' 调用函数时指定raise:=False，找不到元素时返回Nothing，不抛出错误
Set targetElement = GC.FindElementByPartialLinkText("CANTFINDTHIS", raise:=False)

If targetElement Is Nothing Then
    ' 元素未找到时执行跳转操作
    MsgBox "未找到目标元素，执行跳转"
    ' 替换成你的跳转代码，比如：
    ' GC.Navigate "https://your-destination-url.com"
Else
    ' 尝试点击元素，同时处理点击失败的情况
    On Error Resume Next ' 临时忽略错误，跳过点击失败的操作
    targetElement.Click
    On Error GoTo 0 ' 恢复默认错误处理机制
    MsgBox "已找到目标元素，尝试完成点击操作"
End If

关键细节解释

• 关闭错误抛出：raise:=False是核心设置，它让函数在找不到元素时返回Nothing，而不是中断程序抛出错误，保证流程能继续。
• 正确判断元素存在性：用If targetElement Is Nothing来检查是否找到元素，这是VBA中判断对象是否为空的标准写法。
• 跳过点击失败的情况：On Error Resume Next会让程序忽略点击时的错误（比如元素不可点击、状态异常），直接跳过这个操作，继续执行后续代码，完美匹配你“跳过该操作并继续运行”的需求。

内容的提问来源于stack exchange，提问作者protter