Last Modified
19.02.2004 10:25:37
Basti
ich habe folgendes Problem: Meinen Code habe ich mir aus der Excel-Hilfe zusammengebastelt. Damit will ich in eine Zelle (D1) das Datum der letzten Änderung der Datei schreiben. Der Code funktioniert auch bei mir wie erwünscht. Aber auf zwei anderen Rechnern funktioniert er nicht. Ich kann mir leider nicht ganz die Syntax des Codes erklären, da ich ihn ja nur aus der Hilfe habe und sonst nirgends was besseres bzw. Erklärung gefunden habe. Vielleicht kann mir ja jemand helfen, wär echt super von euch.
Mein Code:
Dim fs, book, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
book = ActiveWorkbook.Name
Set f = fs.GetFile(book)
s = Left(f.DateLastModified, 10)
Sheets(1).Range("D1") = "Letzte Änderung: " & Chr(13) & s
Vielen Dank für eure Hilfe,
Sebastian