返回一个 ODBCErrors 集合,该集合包含由最近的查询表或数据透视表操作产生的所有 ODBC 错误。只读。
有关返回集合中单个对象的详细信息,请参阅返回集合中的对象。
如果同时有多个查询在运行,那么 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