Erstelldatum VBA-Code
10.02.2016 09:13:16
Robin
ich muss in einer Zelle das Erstelldatum der geöffneten Exceldatei eintragen lassen. Hierfür greife ich auf das Erstelldatum, welches im Ordner angezeigt wird, zu. Der unten durchgeführte harte Schnitt (um die Uhrzeit nicht ausgeben zu lassen) funktioniert mit dem deutschen Datum und Uhrzeit hervorragend. Das Problem ist, dass meine Kollegen im Ausland das Makro ausführen müssen und die alles auf Englisch haben.
Demzufolge wird dort im Ordner das Datum zb so angezeigt:
11/20/2015 11:41 AM
2/2/2016 1:151 PM
Auf Grund der unterschiedlichen Längen funktioniert der harte Schnitt nicht.
Habt ihr einen Lösungsvorschlag?
Unten stehend mein Code:
Dim oDateiSystem As Object
Dim oDatei As Object
Application.DisplayAlerts = False
Dim CurrentWB As Workbook
Set CurrentWB = ActiveWorkbook
Set oDateiSystem = CreateObject("Scripting.FileSystemObject")
Set oDatei = oDateiSystem.getfile(ActiveWorkbook.FullName)
Debug.Print Left(oDatei.DateCreated, 10)
CurrentWB.Sheets("Tabelle1").Cells(1, 1).Value = Left(oDatei.DateCreated, 10)