On Error GoTo 0表示禁止当前过程中任何已启动的错误处理程序。On Error Resume Next说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。On Error GoTo line启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。
Sub 强行删除指定工作表()
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
Application.DisplayAlerts = False '禁用警告提示
Sheets("仓库").Delete
Application.DisplayAlerts = True '恢复警告提示
End Sub