Makro ausführen, wenn Datei im Verzeichnis
04.02.2019 12:52:57
Egon
- eine Datei wird im Verzeichnis gespeichert,
- Makro öffnet sie,
- führt weiteren makro-Code aus (wie z.B. Paar Zeilen löschen),
- die Datei wird gespeichert,
- und bleibt offen.
Wenn im Verzeichnis eine weitere Datei gespeichert wird, so passiert mit ihr dasselbe.
Ich habe versucht eine Beobachter-Funktion zu schreiben - das übersteigt aber bei weiten meine _
Kenntnisse, der Code gibt nicht mal einen Fehler aus:
Option Explicit
Dim datZeit As Date
Const strPfad = "C:\tmp\Check\"
Sub VerzeichnisPruefen()
Dim strDateiname As String
strDateiname = Dir(strPfad & "*.xlsx")
Debug.Print Now
While strDateiname ""
DateiPruefen (strDateiname)
strDateiname = Dir
Wend
datZeit = datZeit + TimeSerial(0, 0, 10)
Application.OnTime datZeit, "VerzeichnisPruefen"
End Sub
Sub DateiOeffnen(strDateiname)
ChDir "C:\tmp\Check\"
Workbooks.Open Filename:=strDateiname
End Sub
Sub MyMacro()
ActiveSheet.Rows("1:5").Delete
End Sub
Anzeige