Datum
16.12.2004 12:07:12
Marco
Habe ein kleines Problem habe eine Textdatei in Excel Importiert über VBA in Spalte "A" wird mir das Erstelldatum der Textdatei angezeigt bräuchte aber jetzt das Datum wann es geändert wurde wie stelle ich mein Quellcode um.
Hier ist mein Quellcode über das Erstelldatum:
Function ErstellDat(strDatei As String)
Dim fs As Object, fso As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fso = fs.getfile(strDatei)
ErstellDat = Format(fso.datecreated, "DD.MM.YYYY")
End Function
.
.
.
Range("A" & Zeile) = ErstellDat(ThisWorkbook.Worksheets("Tabelle1").Range("A2").Value)
Gruß Marco
Anzeige