Função Error
Retorna a mensagem de erro que corresponde a um determinado número de erro.
Sintaxe
Erro [ (número de erros) ]
O argumento de número de erros opcional pode ser qualquer número de erro válido. Se o número de erros for um número de erro válido, mas não estiver definido, o erro retornará a cadeia de caracteres "Erro definido pelo aplicativo ou definido pelo objeto".
Se o número de erros não for válido, ocorrerá um erro. Se o número de erros for omitido, a mensagem correspondente ao erro de tempo de execução mais recente será retornada. Se nenhum erro de tempo de execução tiver ocorrido ou o número de erros for 0, o erro retornará uma cadeia de caracteres 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 Erro 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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de