VBA中的错误处理与异常情况应对方法.pdfVIP

VBA中的错误处理与异常情况应对方法--第1页

VBA中的错误处理与异常情况应对方法

在VBA编程中，错误处理和异常情况应对方法是非常重要的。当程序发生错

误或遇到异常情况时，一个良好的错误处理机制可以保证程序的稳定性和可靠性，

同时也方便程序员定位和解决问题。本文将介绍VBA中常见的错误处理和异常情

况应对方法。

1.OnError语句

在VBA中，可以使用OnError语句来处理可能出现的错误。OnError语句有

三种形式：OnErrorResumeNext、OnErrorGoTo0和OnErrorGoToLabel。

-OnErrorResumeNext：当程序遇到错误时，将跳过错误的语句并继续执行后

续的语句。这种方式适用于对错误的处理不是很关键的情况，但是需要注意在代码

的后续部分加上错误检查，以确保错误不会被忽略。

-OnErrorGoTo0：取消错误处理，程序遇到错误时将终止执行。这种方式适

用于对于错误的处理非常重要的情况，以确保错误不会被忽略或继续执行。

-OnErrorGoToLabel：当程序遇到错误时，将跳转到指定的错误处理部分。

这种方式适用于需要根据具体错误情况来处理的情况，可以根据错误号或错误描述

来判断采取相应的处理方式。

2.Err对象

在错误处理过程中，可以使用Err对象来获取关于错误的信息。Err对象提供了

许多属性来获取错误号、错误描述等信息，以便于在错误处理过程中进行判断和处

理。

常用的Err对象属性有：

VBA中的错误处理与异常情况应对方法--第1页

VBA中的错误处理与异常情况应对方法--第2页

-Err.Number：返回错误的编号。可以根据具体的错误编号来进行错误处理，

比如根据错误编号来选择是否继续执行后续代码、跳转到错误处理部分。

-Err.Description：返回错误的描述信息。可以将错误信息输出到日志文件或显

示在用户界面上，以便程序员或用户了解具体的错误信息。

-Err.Source：返回产生错误的对象名称。可以用于定位错误发生的具体位置，

方便进行问题的排查和解决。

3.自定义错误处理

除了使用VBA内置的错误处理机制，还可以通过自定义错误处理来应对特定

的错误情况。可以使用Raise语句来自定义错误，并在程序中引发（Raise）这些错

误。

示例代码：

```

SubDivideNumbers()

OnErrorGoToErrorHandler

DimdividendAsInteger

DimdivisorAsInteger

dividend=10

divisor=0

Ifdivisor=0Then

Err.RaisevbDivideByZero

Else

VBA中的错误处理与异常情况应对方法--第2页

VBA中的错误处理与异常情况应对方法--第3页

MsgBoxdividend/divisor

EndIf

ExitSub

ErrorHandler:

发生错误：

EndSub

```

在上面的代码中，当除数为0时，我们手动引发了一个vbDivideByZero的错误。

在错误处理部分（ErrorHandler）中，我们使用MsgBox来显示错误描述信息。这

样，