Zeitgesteuert aktualisieren und speichern
17.10.2016 14:34:53
Alesandro
ich möchte jeden Tag morgens um 04:30 eine Arbeitsmappe mit DB-Verbindungen aktualisieren und mit dem selben Namen speichern.
Zum Öffnen der Arbeitsmappe habe ich in der Aufgabenplanung einen Task eingerichtet.
Ich habe mir gedacht, dass ich mittels Workbook_Open um 04:31 (eine Minute nach Öffnen der Arbeitsmappe) die Aktualisierung der DB-Verbindung aufrufe und 10 min später speichere und schließe.
Hier mein nicht funktionierender Code:
Private Sub Workbook_Open()
Application.OnTime TimeValue("04:31:00"), "DB_Verbindungen_aktualisieren"
Application.OnTime Now + TimeValue("00:10:00"), "Shutdown"
End Sub
ActiveWorkbook.RefreshAll
End Sub Sub Shutdown()
ThisWorkbook.Close savechanges:=True
End Sub
Wichtig ist, dass das Makro beim Öffnen während des Tages nicht ausgelöst werden darf.
Daher die Idee mit:
Application.OnTime TimeValue("04:31:00"), "DB_Verbindungen_aktualisieren"
Vielleicht kann mir eine "Gute Seele" helfen das hinzubekommen.
Vielen Dank
lg Alesandro