On Error Resume Next '出错执行下一行代码 On Error GoTo hErr '出错跳转到hErr: On Error GoTo 0 '恢复系统捕捉