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 Functions和Using VBScript Functions。您会注意到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