|
Halllo zusammen,
versuche als 1.Postler und VBA Anfänger mal mein Glück in diesem Forum:
Ich habe folgendes Problem:
Excel Dateien werden per .bat Datei in einer zeitlichen Abfolge (Nachts) geöffnet. Über Power Query ziehe ich mir automatisiert externe Daten in diese Exceldateien. Die Dateien aktualisieren sich und rechnen. Nach dem letzten Rechenprozess ruht Excel eine Minute, speichert dann und schließt sich.
Dies konnte ich bereits erfolgreich testen. Nun fehlen wir noch zwei i-Tüpfelchen:
1. (für mich wichtig) nach dem Speichern bzw. vor dem Schließen soll eines der Tabellenblätter zusätzlich unter einem anderen Pfad gespeichert werden
2. (Königsklasse, weniger wichtig, da bereits manuell gelöst) vor dem Speichern, sollen sich die Pivot Tabellen noch einmal aktualisieren, da sich diese scheinbar direkt bei Öffnen aktualisiren und damit durch sind, bevor die externen Datenquellen geladen wurden. Also ein Problem in der Reihenfolge... aktuell öffne ich die Exceldatei einfach zeitversetzt noch einmal, dann sind die externen Daten bereits vorhanden und die Pivots aktualisieren sich dementsprechend.
Hier mal die funktionierene (aktuelle) VBA Eintragungen:
Arbeitsmappe:
Dim altezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 1, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 1, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Modul1:
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub
Würde mich über Anregungen/Hilfe freuen
Beste Grüße
Dennis
|