Gibt es ein Äquivalent zu Thread.Sleep() in VBA

Question

Gibt es ein Äquivalent zu Thread.Sleep() in Access VBA?

Answer 1

Declare Sub Sleep Lib "kernel32" Alias "Sleep" _ 
(ByVal dwMilliseconds As Long) 

Verwenden Sie die folgende Syntax, um die Sleep-Funktion aufzurufen:

Sub Sleep() 
Sleep 1000 'Implements a 1 second delay 
End Sub 

Answer 2

Ein paar Änderungen zu arbeiten, um den Code zu bekommen benötigt. Der folgende Code ist die korrigierte Version.

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 

Sub SleepVBA() 
Sleep 1000 'Implements a 1 second delay 
End Sub 

Answer 3

Ein anderer Weg, ohne kernel32 mit:

Dim started As Single: started = Timer 

Do: DoEvents: Loop Until Timer - started >= 1 

Answer 4

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 

irgendwie erstellt zusätzliche Probleme irgendwo anders in meinem Code hinzufügen. I beendet diese Funktion nach oben mit, dass ich auf einem anderen Forum gefunden und tweeked ein bisschen:

Function WaitTime(n As Double) 
'Function that wait an amount of time n in seconds 
TWait = Time 
TWait = DateAdd("s", n, TWait) 
Do Until TNow >= TWait 
    TNow = Time 
Loop 
End Function 

hoffe, das hilft :)

Answer 5

ich dies in Excel verwenden und es funktioniert super:

Application.Wait DateAdd("s", 1, Now()) 

DateAdd() ist eine Funktion, die eine Zeit relativ zu Now() setzt (in diesem Fall können Sie andere Werte als Argument verwenden), "s" ist das Zeitmaß (Sekunden in diesem Fall), und das Inkrement ist 1. So Hier teilt der Funktionsaufruf der App mit 1 Sekunde warten.

See also for more detail about the use of the DateAdd function.

Answer 6

Der ganze Rest der Methoden Excel in Excel immer vollständig unempfänglich Folge warten zu machen. Die Lösung, um Excel warten zu lassen, während eine reaktionsfähige Benutzeroberfläche sichergestellt wird, besteht darin, dieses Warte-Sub mit der Anzahl von Sekunden zu warten, die gewartet werden soll.

Sub Wait(seconds As Integer) 
     Dim now As Long 
     now = Timer() 
     Do 
      DoEvents 
     Loop While (Timer < now + seconds) 
    End Sub 

Answer 7

Es ist möglich, die Excel Wait() - Prozedur von Access VBA zu verwenden.

Der erste Schritt besteht darin, sicherzustellen, dass die Excel-Bibliothek von Ihrem Projekt referenziert wird.

Wenn dass der folgende Code getan wird für 10 Sekunden warten, arbeiten:

Call Excel.Application.Wait(Time:=DateAdd("s",10,Now())) 

Answer 8

Wenn Sie Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long), können Sie diesen Fehler in einem Objektmodul erhalten.

Wenn ja, können Sie es als privat deklarieren:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)