Dateiname und Daten auslesen
01.12.2014 12:43:38
FritzG
ich würde gern aus einem Ordner alle Dateinamen auslesen, das sind in diesem Fall Namen von Mitarbeitern. Nun sollen in jeder Spalte die Dateinamen erscheinen und rechts daneben sollen Daten aus diesen Dateien ausgelesen werden. Wie bekomme ich so eine Übersicht erstellt?
Sub Test()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("C:\excel2014\Mitarbeiter")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 1) = Left(fDatei.Name, Len(fDatei.Name) - 5)
End If
Next fDatei
End Sub
Anzeige