Office: Problem mit ActiveWorkbook.RefreshAll

Hallo,
ich versuche eine Datei mit mehreren Datenquellen und Pivots zu aktualisieren.

Dies funktioniert mit einem simplen Marko:

Sub alledatenupdaten()
ActiveWorkbook.RefreshAll
End Sub

Der gleiche Befehl wird nun in einem Workbook_Open Makro ausgeführt. Hier der Code (ein Teil davon) dazu:

If ThisWorkbook.ReadOnly = False And Sheets("Overview").Cells(1, 1).Value = "12" Then
Application.DisplayAlerts = False

ActiveWorkbook.RefreshAll

Application.Wait Now + TimeSerial(0, 1, 0)

ActiveWorkbook.SaveAs Filename:="N:\Test.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="Test", ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close SaveChanges = True

Das Autpen wird sauber ausgeführt. Der Update Vorgang läuft auch durch, jedoch öffne ich das neu abgespeicherte File, sind die alten Daten drin. Führe ich dann das simple Makro von oben aus klappt es wieder....

Hat jemand eine Idee woran dies liegen könnte? Eine zusätzliche Schleife, die die Pivots updated, möchte ich, wenn es geht, vermeiden.

Schon mal vielen Dank und VG

:)

 

Hallo, ich habe ja die Vermutung, dass es nur an Application.Wait Now + TimeSerial(0, 1, 0) liegen kann.
Allerdings brauche ich das, damit sich der Updatevorgang und das Abspeichern nicht in die Query kommen.

Vielleicht hat ja jemand eine elegantere Lösung für Application.Wait.Now

Danke und VG

 

So auch dieses Thema ist erledigt....

Application.Wait scheint nur in seltenen Fällen praktikabel zu sein. Habe nun den Code gesplittet durch:

Application.OnTime Now + TimeValue("00:00:45"), "pivotupdate" ' hier den Name des zu callenden Codes angeben

Zusätzlich, musste ich aber doch eine Sub für Pivot-Updates einrichten... was ich ja eigentlich vermeiden wollte und das kuriose ist, dass sich manche durch "Refresh.All updaten andere aber nur durch pvtTable.RefreshTable.

Leider kam dann der nächste Fehler... aber wer daran Interesse hat kann danach googlen:
"wollen sie den inhalt der zielzellen ersetzen"

Hier noch mal kurz die Zusammenfassung.

Zuerst Refresh.All und Call der weiteren Codes:

If ThisWorkbook.ReadOnly = False And Sheets("Tabellenblatt").Cells(1, 1).Value = "12" Then
Application.DisplayAlerts = False
ActiveWorkbook.RefreshAll

Application.OnTime Now + TimeValue("00:00:45"), "pivotupdate"
Application.OnTime Now + TimeValue("00:01:30"), "xSave"

Dann Pivots updaten:

Sub PivotUpdate()

Range("i6").Select
ActiveSheet.PivotTables("PivotTable1").ColumnGrand = False

Set pvtTable = Worksheets("Tabellenblatt").Range("i6").PivotTable
pvtTable.RefreshTable

Application.OnTime Now + TimeValue("00:00:30"), "SpaltenSummen_einblenden"

End Sub

Sub SpaltenSummen_einblenden()

Range("i6").Select
ActiveSheet.PivotTables("PivotTable1").ColumnGrand = True
End Sub

Dann der Speichervorgang:

Sub xSave()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="N:\Test.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="Test", ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close SaveChanges = True
End Sub

Hoffe ich kann damit helfen!
VG