Classe OLEDBErrors (Excel VBA)
Uma coleção de objetos OLEDBError . Para usar uma variável de classe OLEDBErrors, ela primeiro precisa ser instanciada por exemplo
Dim oles as OLEDBErrors
Set oles = Application.OLEDBErrors
For Each
Aqui está um exemplo de processamento dos itens OLEDBErrors em uma coleção.
Dim oleer As OLEDBError
For Each oleer In Application.OLEDBErrors
Next oleer
Count
Retorna um valor Long que representa o número de objetos na coleção.
Dim lngCount As Long
lngCount = Application.OLEDBErrors.Count
Item
Retorna um único objeto de uma coleção.
Item (Index)
Index: O número de índice do objeto.
Dim oleer As OLEDBError
Set oleer = Application.OLEDBErrors(Index:=1)