Datum der aktuellen Datei auslesen - möglich?
04.04.2007 14:41:53
Richard
Ich würde mich nicht an euch wenden, wenn es was einfaches wäre :-)
Mein Versuch ist folgender:
Ich wollte in einer Datei ein Quellcode einbauen der mir das akutelle Datum der aktuell geöffneten Datei prüft, hintergrund ist folgender..
Eine Datei wird jeden Tag erzeugt.
Am nächsten Tag sollte das Automakro prüfen ob die Datei noch von gestern ist, und danach den User rauschmeissen und sich schließen, sollte die Datei alt sein.
Hier mein Quellcode:
Dim AppObject As New CAppLog
Private Sub Workbook_Open()
Set AppObject.app = Application
TimeStamp$ = Format$(Now, "YYYYMMDD")
t$ = ThisWorkbook.Path & "\" & ThisWorkbook.Name
FileDate$ = Mid(FileDateTime((t$)), 1, 10)
FileDate$ = Right(FileDate$, 4) & Mid$(FileDate$, 4, 2) & Left(FileDate$, 2)
If TimeStamp$ > FileDate$ Then
MsgBox ("du kommst hier ned rein")
ActiveWorkbook.Close (False)
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set AppObject.app = Nothing
End Sub
Gibt es dafür überhaupt eine Lösung, mir fällt keine ein :-(
Vielen Dank schonmal!
Grüße,
Richard