Makro, um eine gesamte Excel-Arbeitsmappe (alle Datenverbindungen und Berechnungen) alle 15 Minuten zu aktualisieren?

Question

Ich habe das folgende Makro, um meine Arbeitsmappe zu aktualisieren. An diesem Punkt ist dies das gleiche wie beim Klicken auf die Schaltfläche Alle aktualisieren. Gibt es ein Zeitelement, das ich diesem Code hinzufügen kann, um alle Datenverbindungen und alle Berechnungen auf alle Arbeitsblätter in meiner Arbeitsmappe alle 15 Minuten zu aktualisieren.

Die Arbeitsmappe enthält Zellen, die Daten aus SharePoint-Listenelementen abrufen und typische Formelberechnungen enthalten.

Sub Workbook_RefreshAll() 
ActiveWorkbook.RefreshAll 
End Sub 

Answer 1

Geben Sie in einem Standardmodul folgendes:

Public RunWhen As Double 
Public Const cRunIntervalMinutes = 15 
Public Const cRunWhat = "Workbook_RefreshAll" 

Sub StartTimer() 
    RunWhen = Now + TimeSerial(0, cRunIntervalMinutes, 0) 
    Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _ 
     schedule:=True 
End Sub 

Sub StopTimer() 
    On Error Resume Next 
    Application.OnTime earliesttime:=RunWhen, _ 
     procedure:=cRunWhat, schedule:=False 
End Sub 

Sub Workbook_RefreshAll() 
    Application.CalculateFullRebuild 
    ActiveWorkbook.RefreshAll 
    Call StartTimer 
End Sub 

den Prozess laufen StartTimer() zu beginnen und den Prozess laufen StopTimer()

von Chip Pearson's Site

habe ich einige Formen Angepasst beenden die Makros ausführen :

Answer 2

alle Berechnungen aktualisieren können Sie:

application.Calculate 

PS: Sorry, mein Englisch

Answer 3

Sie können die Application.OnTime Methode ein Makro planen in der Zukunft ausgeführt werden sollen: https://msdn.microsoft.com/en-us/library/office/ff196165.aspx

Dies ist jedoch nur ein einmaliges Ereignis. Um es rekursiv zu machen, müssen Sie in diesem Makro (noch einmal) einen anderen Application.OnTime einschließen, um einen Anruf "alle 15 Minuten" sicherzustellen.