schließen und gleich wieder öffnen
12.02.2018 12:04:23
Markus
ich suche nach einer Lösung eine Datei zu schließen (was schon funktioniert) und dann aber wieder nach dem schließen gleich erneut zu öffnen nach einer bestimmten Zeitspanne, dabei möchte ich aber keinen festen Pfad angeben extra für die zu öffnende Datei, sondern er soll erkennen welche Datei geschlossen wurde und diese auch gleich wieder öffnen, da sich dieser Pfad immer wieder ändert. Also er soll die Datei öffnen die er geschlossen hat und erkennen um welche es sich handelte.
Ich stellte mir das so vor: Per Doppelklick wird die Datei geöffnet, dann auf Buttondruck wird sie geschlossen und danach gleich nach 2 Sekunden aber wieder geöffnet, (die selbe Datei), dabei sollen aber keine Änderungen gespeichert werden und es soll auch nicht nachgefragt werden ob gespeichert werden soll.
So weit bin ich bereits:
Sub Start()
pfad = ActiveWorkbook.Path
Application.OnTime Now + TimeValue("00:00:02"), Application.Workbooks.Open(pfad)
MsgBox "Die Arbeitsmappe wurde wieder erfolgreich geöffnet"
End Sub
Sub schließen()
'ActiveWorkbook.Close
'ActiveWorkbook.Close savechanges:=False
ActiveWorkbook.Close (False)
'ThisWorkbook.Close True
End Sub
Sub Öffnen()
ThisWorkbook.Activate
'Application.OnTime Now + TimeValue("00:00:10"),ThisWorkbook.Name & "!Start"
Call Start
End Sub
Das schließen funktioniert immer, aber er öffnet es nicht wieder nach den 2 Sekunden, was mache _
ich da falsch?
Hoffe jemand kann mir da weiterhelfen
Beste Grüße
Markus