Ich möchte gern bestimmte Dateien eines Ordners auslesen
Die Arbeitsmappe befindet sich in dem selben Verzeichnis, in dem sich auch der auszulesende Ordner befindet.
Mein Makro gibt mir den vollständigen Pfad der Dateien zurück, ich benötige aber nur die Dateien selbst nebst Dateieindung.
Ich habe sooo lange nicht mehr herumgeexcelt - ich hab's vergessen. Kann mir bitte jemand helfen.
Unten mein Code, soweit, wie ich gekommen bin.
danke für Eure Unterstützung
Grüße, Fritz
Sub ordner_auslesen()
Dim Pfad As String
Dim auslesen As Object
Dim i As Integer
Pfad = ActiveWorkbook.Path
Columns("A:A").ClearContents
Set auslesen = Application.FileSearch
With auslesen
.NewSearch
.LookIn = Pfad & "*\html"
.FileName = "*.txt"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Sheets(1).Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "Es wurden keine Daten gefunden", vbCritical, "Keine Daten"
Exit Sub
End If
End With
Columns("A:A").AutoFit
End Sub