Datum_Abfrage "erstellt am"

18/06/2008 - 11:54 von Martina Winter | Report spam
Hallo zusammen

Ich habe eine Ecxel-Datei die aus einer Vorlage erstellt wurde. Unter
"Eigenschaften" der Datei
finde ich unter "Allgemein" ein Erstelldatum vom Mittwoch, 12.Màrz 2008 und
unter "Statistik" ein Erstelldatum vom Donnerstag, 17.Juni 2004.
In VBA frage ich mit

ActiveWorkbook.BuiltinDocumentProperties(Format("Creation date",
"dd.mm.yyyy"))

das Erstelldatum ab und erhalte das Datum 17.Juni 2004.
Leider brauche ich das Datum, welches unter "Allgemein" (also 12.Màrz 2008)
steht. Wer kann mir da weiterhelfen?
Ferner möchte ich nur das Datum und nicht auch noch die Uhrzeit. Mit dem
Format dd.mm.yyyy
klappt es leider nicht. Was habe ich falsch gemacht?

Vielen Dank für Eure Hilfe.

freundliche Grüsse

Martina Winter

P.S Excel Version 2003
 

Lesen sie die antworten

#1 Peter Schleif
18/06/2008 - 12:51 | Warnen spam
Martina Winter schrieb am 18.06.2008 11:54 Uhr:

klappt es leider nicht.



Hallo Martina.

Falls Du mit BuiltinDocumentProperties nicht weiter kommst, kannst Du
auch die Datei-Atrribute direkt abfragen:


Sub datei_attribute()
Dim fso As Object
Dim fp As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.GetFile(ThisWorkbook.FullName)

MsgBox fp.DateCreated & vbCr & _
fp.DateLastAccessed & vbCr & _
fp.DateLastModified

Set fp = Nothing
Set fso = Nothing
End Sub


'/Oder etwas kürzer/
'
Sub datei_attribute2()
With CreateObject("Scripting.FileSystemObject")
With .GetFile(ThisWorkbook.FullName)
MsgBox .DateCreated & vbCr & _
.DateLastAccessed & vbCr & _
.DateLastModified
End With
End With
End Sub

Ähnliche fragen