Wie bekomme ich VBA Macro, um kontinuierlich im Hintergrund zu laufen?

Question

Ich möchte einen Wert überwachen und eine E-Mail-Benachrichtigungen erhalten, wenn bestimmte Bedingungen erfüllt sind. Ich habe ein Makro wie folgt:

Do While True 

    Worksheet.Calculate 

    If Value > 10 Then 
     SendEmail 
    End If 

    Sleep 60*CLng(1000) 

Loop 

Allerdings, wenn ich dies ausführen, verstopft es das gesamte Programm und schaltet nicht mehr reagiert, wenn ich versuche, etwas zu tun.

Gibt es das trotzdem, aber muss es im Hintergrund laufen oder zumindest nicht das Programm zum Absturz bringen?

Was ich vorher tat war mit VBScript, um eine nicht sichtbare Tabelle zu öffnen und das VBScript lief kontinuierlich im Hintergrund die Bedingung und funktionierte gut, aber mein Client möchte wirklich eine GUI und dafür im Programm selbst sein .

Irgendwelche Gedanken?

Answer 1

Verwenden Sie die Methode Application.OnTime, um einen Code zu planen, der in einer Minute ausgeführt wird.

Ihr Code wird so etwas wie diese (ungetestet) aussehen:

Sub CreateNewSchedule() 
    Application.OnTime EarliestTime:=DateAdd("n", 1, Now), Procedure:="macro_name", Schedule:=True 
End Sub 

Sub macro_name() 

    If Value > 10 Then 
     SendEmail 
    Else 
     CreateNewSchedule 
    End If 

End Sub 

Sie könnten die Zeit des nächsten Zeitplan in einer globalen Variablen gespeichert werden sollen, so dass das Workbook_BeforeClose Ereignis den nächsten Zeitplan abbrechen. Andernfalls wird Excel die Arbeitsmappe erneut öffnen.

Public nextScheduledTime As Date 

Sub CreateNewSchedule() 
    nextScheduledTime = DateAdd("n", 1, Now) 
    Application.OnTime EarliestTime:=nextScheduledTime , Procedure:="macro_name", Schedule:=True 
End Sub 

Sub macro_name() 

    If Value > 10 Then 
     SendEmail 
    Else 
     CreateNewSchedule 
    End If 

End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
On Error Resume Next 
    Application.OnTime EarliestTime:=nextScheduledTime, Procedure:="macro_name", Schedule:=False 
End Sub 

Sie können dann weiterhin Excel zwischen den geplanten Zeiten verwenden.

Answer 2

Ich denke, Sie müssen den Application Event Stack mit einem DoEvents Aufruf speziell verarbeiten. Dies ermöglicht Benutzerinteraktionen mit der Tabelle, wobei normalerweise das Makro Vorrang hat. Sie Code würde in etwa so aussehen:

Do While True 

    If Value > 10 Then 
     SendEmail 
    End If 

    Sleep 60*CLng(1000) 

    DoEvents 
Loop 

Sie auch eine grafische Benutzeroberfläche mit HTA konstruieren könnte, wenn Sie mit VBScript bleiben wollte.