Свойство Application.ODBCErrors (Excel)

Возвращает коллекцию ODBCErrors , содержащую все ошибки ODBC, возникшие в ходе последней таблицы запросов или операции с отчетом сводной таблицы. Только для чтения.

Синтаксис

выражение. ODBCErrors

выражение: переменная, представляющая объект Application.

Примечания

Если одновременно выполняется несколько запросов, коллекция ODBCErrors содержит ошибки ODBC для запроса, который завершился последним.

Пример

В этом примере обновляется первая таблица запросов и отображаются все возникшие ошибки ODBC.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.