Объект ODBCErrors (Excel)
Коллекция объектов ODBCError .
Каждый объект ODBCError представляет ошибку, возвращенную последним запросом ODBC. Если указанный запрос ODBC выполняется без ошибок, коллекция ODBCErrors пуста. Ошибки в коллекции индексируются в том порядке, в котором они создаются источником данных ODBC. Нельзя добавлять члены в коллекцию.
Используйте свойство ODBCErrors объекта Application , чтобы вернуть коллекцию ODBCErrors . В следующем примере обновляется таблица запросов и отображаются все возникающие ошибки 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 и обратная связь.