Internet Explorer OLE-Fehler in Excel VBA

Question

Ich bekomme den folgenden Fehler aus der Klickzeile: "Microsoft Excel wartet auf eine andere Anwendung, um eine OLE-Aktion abzuschließen." Wie kann ich das lösen? Danke für Ihre Hilfe.

Es ärgert mich wirklich, weil ich nicht einmal das Programm stoppen kann, selbst wenn ich mehrere Kombinationen von Escape-Tasten drücke, also muss ich meinen Computer neu starten.

 Set objCollection = IE.document.getElementsByTagName("a") 

i = 0 
While i < objCollection.Length 

     If objCollection(i).Title = "The maximum amount of records that may be downloaded is 2,000." Then 

       Set objElement = objCollection(i) 


     End If 


     i = i + 1 
    Wend 

objElement.Click 

Answer 1

Besser ein verwenden „Für jeden“ durch all die Anker zu sehen: Es wird das ein Ergebnis nur

Dim objCollection, obj 
For each obj in objCollection 
    If obj.Title = "The maximum amount of records that may be downloaded is 2,000." Then 

    Set objElement = obj 

Exit For 
    End If 
Next obj 

Ich gehe davon aus, dass Sie für die Suche ist, warum ich enthalten die Exit-Klausel. Dies ist sehr wichtig, da Sie nicht möchten, dass der Code weiter ausgeführt wird, nachdem er gefunden hat, was Sie wollen ...