Метод Clear

Статья
04/07/2023

Очищает все параметры свойств объекта Err .

Синтаксис

object. Ясно

В качестве object всегда используется объект Err.

Замечания

Используйте метод Clear, чтобы явно очистить объект Err после обработки ошибки, например при использовании отложенной обработки ошибок с конструкцией On Error Resume Next. Метод Clear вызывается автоматически при выполнении следующих операторов:

любой тип оператора Resume;
Exit Sub, Exit Function, Exit Property;
любой оператор On Error.

Примечание.

При обработке ошибок, возникающих при обращении к другим объектам, конструкция On Error Resume Next предпочтительнее, чем On Error GoTo. Проверка объекта Err после каждого взаимодействия с объектом позволяет устранить неоднозначность в плане того, к какому объекту обращался код. Вы можете точно определить, какой объект поместил код ошибки в свойство Err.Number, а также какой объект изначально сгенерировал ошибку (объект, указанный в свойстве Err.Source).

Пример

В этом примере метод Clear объекта Err используется для сброса числовых свойств объекта Err в ноль и сброса строковых свойств до строк нулевой длины. Если метод Clear убрать из следующего кода, при каждой итерации цикла будет отображаться диалоговое окно с сообщением об ошибке (если возникает ошибка) независимо от того, вызвало ли последующее вычисление ошибку. Вы можете увидеть это, пошагово выполняя код.

Dim Result(10) As Integer    ' Declare array whose elements 
            ' will overflow easily.
Dim indx
On Error Resume Next    ' Defer error trapping.
Do Until indx = 10
    ' Generate an occasional error or store result if no error.
    Result(indx) = Rnd * indx * 20000
    If Err.Number <> 0 Then
        MsgBox Err, , "Error Generated: ", Err.HelpFile, Err.HelpContext
        Err.Clear    ' Clear Err object properties.
    End If
    indx = indx + 1
Loop

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via