vba Get Cube Aktualisierungszeit mit Formel Benötigt, Makroausführung zu verzögern

Question

Ich habe einen Würfel mit Pivots in Excel verbunden. In einer Zelle i zeigen den „letzten Aktualisierung“ Wert durch diese Formel:

=CUBEVALUE("CUBE NAME";"[Measures].[Last Data Update]") 

Es dauert 5-10 Sekunden für Excel, um die Zeit der Aktualisierung aus dem Cube zu erhalten und die Zelle aktualisieren. Also, wenn ich die Arbeitsmappe direkt danach schließe, wird es einfach n/a sagen, wenn ich die Arbeitsmappe wieder öffne.

Ich habe dieses WB geplant, um (unter anderem wbs) durch ein anderes wb zu automatisieren, das geplant ist, jeden Tag zu laufen. Damit bekomme ich das N/A Problem. Ich sehe zwei Lösungen, von denen ich nicht weiß, wie ich dazu komme:

1, Halten Sie das Makro für 10 Sekunden, damit es das Datum richtig erhalten kann. - Ich habe sowohl Wait als auch Sleep Vba ausprobiert, aber dies unterbricht auch Berechnungen. - Gibt es eine Möglichkeit, das Ausführen des Makros nur zu unterbrechen?

2, Holen Sie sich das Update-Datum von VBA und dann drucken Sie es in eine Zelle. - Ich habe keine Ahnung, wie das geht. Ich habe gesucht, aber keine Alternative gefunden. - Weiß jemand, wie das möglich gemacht werden könnte?

Dank Elias

GELÖST:

Nur meine Lösung teilen möchten. Fand die CalculateUntilAsyncQueriesDone Methode, die OLAP-Datenquellen behandelt:

    Application.CalculateUntilAsyncQueriesDone 

        Do While Application.CalculationState <> xlDone 
         DoEvents 
        Loop 

Mehr Infos hier: https://msdn.microsoft.com/en-us/library/office/ff821008.aspx

Answer 1

Versuchen Sie, diesen Wait Code, den ich vor vielen Jahren geschrieben hat. Dies wird auf bestimmte Sekunden warten und Excel Formel berechnen lassen. Ändern Sie einfach 10 auf die von Ihnen gewünschte Nummer.

Sub Sample() 
    ' 
    '~~~> Rest of your code 
    ' 
    Wait 10 '<~~ Wait for 10 secs 
    ' 
    '~~~> Rest of your code 
    ' 
End Sub 

Private Sub Wait(ByVal nSec As Long) 
    nSec = nSec + Timer 
    While nSec > Timer 
     DoEvents 
    Wend 
End Sub 

Answer 2

Ich möchte nur meine Lösung teilen. Fand die CalculateUntilAsyncQueriesDone Methode, die OLAP-Datenquellen behandelt:

     Application.CalculateUntilAsyncQueriesDone 

         Do While Application.CalculationState <> xlDone 
          DoEvents 
         Loop 

Mehr Infos hier: https://msdn.microsoft.com/en-us/library/office/ff821008.aspx