Saschs Blog
neuster   |   archiv   |   fotos   |   orte   |   suche   |   über
Kommentare deaktiviert

Excel: Erstellungsdatum

Veröffentlicht: 10. Februar 2005

Sub GetDateCreated()
	'This requires a Reference to Microsoft Runtime Scripting Library
	Dim FSO As Scripting.FileSystemObject
	Dim FileItem As Scripting.File
	Dim DateCreated As String</code></p>
	Set FSO = New Scripting.FileSystemObject
	Set FileItem = FSO.GetFile(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name)
	DateCreated = FileItem.DateCreated
End Sub