Função Error

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

Sintaxe

Erro [ (número de erro) ]

O argumento de número de erro 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, Erro devolve a cadeia "Erro definido pela aplicação ou definido pelo objeto".

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

Comentários

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

Exemplo

Este exemplo utiliza 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.