Dateien in Ordner auflisten
07.12.2015 14:59:47
Lukas
ich verwende derzeit folgendes Makro um alle Dateinamen in einem Excel-Sheet aufzulisten (um im Anschluss alle nacheinander einzulesen).
Dim verz As String
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim zeile As Integer
verz = Sheets("Eingaben").Cells(14, 4)
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.GetFolder(verz)
Set fdateien = fVerz.files
zeile = 0
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
zeile = zeile + 1
Sheets("Inhalt Tagesordner").Cells(zeile, 1) = fDatei.Name
End If
Next fDatei
Das ganze funktioniert zwar, dauert aber sehr lange (sind etwa 200 - 500 Dateien im Ordner). Gibt es eine schnellere Möglichkeit alle Dateien eines Ordners in Excel aufzulisten?
Vielen Dank und viele Grüße,
Lukas