AW: Speicherdatum Einlesen
08.11.2017 11:28:16
Michael
Hallo!
zB mit folgender Benutzerdefinierten Funktion:
Function TxDat(c As Range) As Variant
Dim Pfad$, Fso As Object, Dat As Object, Dname$
Application.Volatile
Dname = IIf(Right(c.Text, 4) = ".txt", c.Text, c.Text & ".txt")
Pfad = "D:\DeinVerzeichnis" 'anpassen
Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\")
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.fileexists(Pfad & Dname) Then
Set Dat = Fso.getfile(Pfad & Dname)
TxDat = CDate(Dat.DateLastModified)
Else:
TxDat = CVErr(xlErrNA)
End If
Set Fso = Nothing: Set Dat = Nothing
End Function
Diese Funktion muss in der gewünschten Mappe verfügbar sein, zB in einem allgemeinen Modul. Du kannst diese dann im Blatt wie eine Excel-Funktion verwenden:
Eingabe zB in D1: =TxDat(A1) wenn in A1 der Dateiname steht. Das Verzeichnis ist hart codiert, das musst Du im Code anpassen.
Diese Zell-Formel steht Dir dann natürlich in allen gewünschten Zellen zur Verfügung, und braucht als Parameter immer nur eine andere Zelle.
Klappt?
LG
Michael