excel - VBscript 抛出异常说“IsError”是未定义的变量

Question

如果以下错误处理程序不起作用，仍然会抛出未定义“IsError”变量的异常。

  If not IsError(objExcel1.Application.Match(ParentID, ob3.Columns(1), 0)) Then    
    ParentMatchRowNum = objExcel1.Application.Match(ParentID, ob3.Columns(1), 0)
  Else
     '-- do something
  End if

快照

你能在这里帮我吗，如何解决这个问题？

谢谢，

Answer 1

据我所知， IsError 不是 VBscript 函数。支持证据：VBScript 函数和使用 VBScript 函数。你会注意到IsError丢失了。

相反，您需要进行错误捕获。像这样的东西应该适合。

On Error Resume Next
ParentMatchRowNum = objExcel1.Application.Match(ParentID, ob3.Columns(1), 0)
If err then
   err.clear
   'Do something
end if
on Error Goto 0