vba - VBA错误处理: Application.setOption and Application.setOption

Question

我已收到以下代码以添加到封闭代码(受密码保护)中，以便可以发现错误。

On Error Resume Next: Err.Clear

Application.SetOption "Error Trapping", 2

strLine = Application.Run("Comdinheiro.xlam!ExecutaURL_Cliente2", "Fundamentalista3-0-" _

& strData & "-0-" & strCODIGO_CVM & "-" & strDF & "-IFRS-comdinheiro-1")

If Err.Number <> 0 Then

    Sleep i * 500 'Espera 0.5 us antes de executar novamente a função com problema

    Err.Clear

    On Error GoTo 0

    strLine = Application.Run("Comdinheiro.xlam!ExecutaURL_Cliente2", "Fundamentalista3-0-" _

    & strData & "-0-" & strCODIGO_CVM & "-" & strDF & "-IFRS-comdinheiro-1")

End If

1- Application.setOption“错误陷阱”，2:VBA中是否有任何Erro陷阱选项？我在网上找不到。

2-接下来的错误恢复:Err.clear:我见过下面的错误恢复或错误恢复，但从来没有这样的事情。

有人可以向我解释要点1和2。

Answer 1

错误处理有两种方式。

检查是否存在会导致常见错误的null和填充值。

实际处理。

   On Error goto SkipLine

   'Some code that might cause error


SkipLine:
    'Code to report or deal with error.
    msgbox Err.Description & " " & Err.Number & " " & Err.Name

对于“下一步出错恢复”，我会提醒您使用此功能时要格外小心。

 On Error Resume next

 'Some code that might cause error

 On Error goto 0

On Error goto 0是将其设置回引发错误的原因。