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"