Einfügen einer Leerlaufzeit beim Schleifen

Question

Ich habe einen VBA-Code geschrieben, um einige Datenbankeinträge basierend auf einer Excel-Liste zu generieren: Aufgrund der Art, wie die Datenbank eingerichtet wird, muss ich zuerst eine URL generieren und dann die zu generierende URL öffnen der Online-DB-Eintrag.

Ich könnte die gesamte Liste durchlaufen, aber ich habe Angst, dass das Starten von 50 oder noch mehr aufeinander folgenden Instanzen von IE mit dieser Schleife den Computer hängt. Es ist erwähnenswert, dass die DB beim manuellen Öffnen einer einzelnen URL einige Sekunden benötigt, um die richtige Seite anzuzeigen.

Gibt es eine Möglichkeit, am Ende jeder Iteration eine Leerlaufzeit zu definieren?

Answer 1

Was ist mit Application.Wait()? Zählen Sie beispielsweise alle 5 Sekunden von 0 bis 10:

Sub main() 

For i = 0 To 10 
    MsgBox i 
    Application.Wait (Now() + TimeValue("0:00:05")) 
Next i 

End Sub