Función Error

Devuelve el mensaje de error que corresponde a un número de error determinado.

Sintaxis

Error [ (errornumber) ]

El argumentoopcional errornumber puede ser cualquier número de error válido. Si errornumber es un número de error válido pero no está definido, Error devuelve la cadena “Error definido por aplicación o definido por objeto”.

Si errornumber no es válido, ocurre un error. Si se omite errornumber, se devuelve el mensaje correspondiente al error en tiempo de ejecución más reciente. Si no ha ocurrido ningún error en tiempo de ejecución o errornumber es 0, Error devuelve una cadena de longitud cero ("").

Comentarios

Examine la configuración de propiedad del objeto Err para identificar el error en tiempo de ejecución más reciente. El valor devuelto de la función Error se corresponde con la propiedad Description del objeto Err.

Ejemplo:

En este ejemplo se usa la función Error para imprimir mensajes de error que correspondan a los números de error especificados.

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

Vea también

• Funciones (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.