Classe ODBCError - um erro ODBC gerado pela consulta ODBC mais recente (Excel VBA)

A classe ODBCError representa um erro ODBC gerado pela consulta ODBC mais recente. Para usar uma variável de classe ODBCError, ela primeiro precisa ser instanciada por exemplo

Dim odber as ODBCError
Set odber = Application.ODBCErrors(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens ODBCError em uma coleção.

Dim odber As ODBCError
For Each odber In Application.ODBCErrors
	
Next odber

ErrorString

Retorna um valor String que representa a sequência de erros ODBC.

Dim strErrorString As String
strErrorString = Application.ODBCErrors(1).ErrorString

SqlState

Retorna o erro de estado SQL. String somente leitura.

Para obter uma explicação sobre o erro específico, consulte a documentação do SQL.

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