Propriedade Application.ODBCErrors (Excel)

Devolve uma coleção ODBCErrors que contém todos os erros ODBC gerados pela mais recente operação de relatório de tabela de consulta ou tabela dinâmica. Somente leitura.

Sintaxe

expressão. ODBCErrors

expressão Uma variável que representa um Aplicativo objeto.

Comentários

Se existir mais do que uma consulta em execução ao mesmo tempo, a coleção ODBCErrors contém os erros ODBC da consulta que terminou em último lugar.

Exemplo

Este exemplo atualiza a tabela de consulta um e exibe os erros ODBC que ocorrerem.

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

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.