Objeto ODBCErrors (Excel)
Uma coleção de objetos ODBCError .
Cada objeto ODBCError representa um erro retornado pela consulta ODBC mais recente. Se a consulta ODBC especificada for executada sem erros, a coleção ODBCErrors permanecerá vazia. Os erros na coleção são indexados na ordem em que são gerados pela fonte de dados ODBC. Não é possível adicionar membros à coleção.
Use a propriedade ODBCErrors do objeto Application para retornar a coleção ODBCErrors . O exemplo a seguir atualiza a tabela de consulta um e exibe qualquer erro ODBC que ocorrer.
With Worksheets(1).QueryTables(1)
.Refresh
Set errs = Application.ODBCErrors
If errs.Count > 0 Then
Set r = .Destination.Cells(1)
r.Value = "The following errors occurred:"
c = 0
For Each er In errs
c = c + 1
r.offset(c, 0).value = er.ErrorString
r.offset(c, 1).value = er.SqlState
Next
Else
MsgBox "Query complete: all records returned."
End If
End With
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.