Функция Error

  • Статья

Возвращает сообщение об ошибке, соответствующее заданному номеру ошибки.

Синтаксис

Ошибка [ (errornumber) ]

Необязательный аргументerrornumber может быть любым допустимым номером ошибки. Если аргумент errornumber является допустимым номером ошибки, которая не определена, функция Error возвращает строку "Определенная приложением или объектом ошибка".

Если аргумент errornumber имеет недопустимое значение, возникает ошибка. Если аргумент errornumber опущен, возвращается сообщение, соответствующее последней ошибке выполнения. Если ошибка выполнения не возникала или аргумент errornumber имеет значение 0, функция Error возвращает строку нулевой длины ("").

Замечания

Проверьте значения свойств объекта Err, чтобы определить последнюю ошибку выполнения. Значение, возвращаемое функцией Error, соответствует свойству Description объекта Err.

Пример

В этом примере используется функция Error для печати сообщений об ошибках, соответствующих указанным номерам ошибок.

Private Sub PrintError()
    Dim ErrorNumber As Long, count As Long
    count = 1: ErrorNumber = 1
    On Error GoTo EOSb
    Do While count < 100
        Do While Error(ErrorNumber) = "Application-defined or object-defined error": ErrorNumber = ErrorNumber + 1: Loop
        Debug.Print count & "-Error(" & ErrorNumber & "): " & Error(ErrorNumber)
        ErrorNumber = ErrorNumber + 1
        count = count + 1
    Loop
EOSb: Debug.Print ErrorNumber
End Sub

См. также

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

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