相关疑难解决方法(0)

我有这个代码:

Dim wsFunc As WorksheetFunction: Set wsFunc = Application.WorksheetFunction
Dim ws As Worksheet: Set ws = Sheets("2012")
Dim rngLook As Range: Set rngLook = ws.Range("A:M")

'within a loop
  currName = "Example"
  cellNum = wsFunc.VLookup(currName, rngLook, 13, False)

预计VLookup不会总能找到结果; 但是当它没有找到结果时,我甚至可以在错误检查下一行之前将错误输出.

错误:

运行时错误'1004':无法获取WorksheetFunction类的VLookup属性

找到结果时,它工作正常.在这里处理错误的好方法是什么？