Letzter Speichertag von Datei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Letzter Speichertag von Datei
von: tino
Geschrieben am: 23.03.2005 18:35:31
Hallo,
möchte Sicherung abspeichern.Wie bekomme ich Speichertag
von "D:\versuch\Sicherung\versuch.xls" heraus?
Application.DisplayAlerts = False
if speichertag = date - 1 then '????Speichtag?????
ActiveWorkbook.SaveAs Filename:= _
"D:\versuch\Sicherung\versuch.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
end if

ActiveWorkbook.SaveAs Filename:= _
"D:\versuch\versuch.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True

Bild

Betrifft: AW: Letzter Speichertag von Datei
von: ransi
Geschrieben am: 23.03.2005 18:46:07
hallo tino
die letzte speicherung geht so:
Public

Sub t()
dim speichertag
speichertag=Format(ThisWorkbook.BuiltinDocumentProperties(12).Value, "DD.MM.YY")
MsgBox speichertag
End Sub

ransi
Bild

Betrifft: cdate() vergessen...
von: ransi
Geschrieben am: 23.03.2005 18:50:09
hallo tino
Public

Sub t()
Dim speichertag
speichertag = CDate(Format(ThisWorkbook.BuiltinDocumentProperties(12).Value, "DD.MM.YY"))
MsgBox speichertag
End Sub

ransi
Bild

Betrifft: AW: cdate() vergessen...
von: tino
Geschrieben am: 23.03.2005 20:37:59
Die sicherunsdatei ist nicht offen.
Brauche Datum von einer geschlossenen Excel Datei!
Bild

Betrifft: AW: cdate() vergessen...
von: Hajo_Zi
Geschrieben am: 23.03.2005 20:47:59
Hallo tino
FileDateTime(LaufwerkV & "Laser Muster.xls") _
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Letzter Speichertag von Datei"