weiß jemand, wie ich mittels VBA die Dateinamen + Dateinamenerweiterung von Dateien eines Verzeichnisses in ein XL-Sheet übertragen kann?
Danke!
Gruß,
Bernhard
Gruß,
Bernhard
Sub DateienListen()
i = 1
With Application.FileSearch
.NewSearch
.LookIn = "d:"
.Filename = "*.*"
.SearchSubFolders = False
If .Execute() > 0 Then
For Each varFile In .FoundFiles
Cells(i, 1).Value = varFile
i = i + 1
Next varFile
End If
End With
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
habe es ausprobiert und bei mir mit einer Inputbox für die Eingabe des Pfades ausprobiert, klappt gut. Wie aber kann ich alle Dateien inkl. Unterverzeichnisse auslesen, geht das?
Gruss,
Martin
ich hatte mich anderweitig schon mit dem Problem beschäftigt und ein Makro geschrieben, dass Dateistrukturen einliest und diese grafisch darstellt (befindet sich zur Zeit noch in der Test- und Verbesserungsphase).
Du brauchst dazu ein leeres Sheet mit einem Commandbutton (aus Steuerelement-Toolbox; Name 'CommandButton1')
Folgender Code in den Codebereich des Tabellenblatts mit dem CommandButton:
Dieser Code gehört in ein allgemeines Modul (Name:'BaumErstellen'):
Und zu guter letzt noch folgender Code für die Verzeichnisauswahl in ein allgemeines Modul mit dem Namen 'browseFolder':
Steffan.
habe es ausprobiert und bei mir mit einer Inputbox für die Eingabe des Pfades ausprobiert, klappt gut. Wie aber kann ich alle Dateien inkl. Unterverzeichnisse auslesen, geht das?
Gruss,
Martin
das ist relativ gut zu lösen:
.SearchSubFolders = False
wird zu
.SearchSubFolders = True
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de
Danke & Gruss,
Martin
Bernhard
Thanx...