Função Error

Retorna a mensagem de erro que corresponde a um determinado número de erro.

Sintaxe

Erro [ (errornumber) ]

O argumentoerrornumber opcional pode ser qualquer número de erro válido. Se errornumber for um número de erro válido, mas não estiver definido, Error retornará a cadeia de caracteres "Erro definido pelo aplicativo ou definido pelo objeto".

Se errornumber não for válido, ocorrerá um erro. Se errornumber for omitido, a mensagem correspondente ao erro de tempo de execução mais recente será retornada. Se nenhum erro em tempo de execução tiver ocorrido ou se o número de erro for 0, o erro retornará uma cadeia de comprimento zero ("").

Comentários

Examine as configurações de propriedade do objeto Err para identificar o erro de tempo de execução mais recente. O valor retornado da função Error corresponde à propriedade Description do objeto Err .

Exemplo

Este exemplo usa a função Error para imprimir mensagens de erro que correspondem aos números de erro 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

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.