Wie kann ich eine Dateiliste in Excel importieren?

So auf Anhieb fällt mir nur ein:

Diskette im Explorer anzeigen lassen, jeweilige Datei markieren und auf Eigenschaften, Namen mittels CTRL + C in Zwischenablage und in die geöffnete Exceltabelle einfügen.

Ist auf jeden Fall schneller als abtippen.

Vielleicht was ja jemand noch was besseres.

Start -> Ausführen -> cmd

Dann geht ein Fenster auf mit blinkendem Cursor. Dort tippst du jetzt ein (ggf. A: ersetzen durch dein Laufwerksbuchstaben)

dir A:\ /b/s > liste.txt

Dann zeigt er dir den Inhalt des Verzeichnisses (directory) an, und zwar als einfache Liste (/b) und inklusive Unterverzeichnisse(/s) bzw. leitet es dank ">" um in die Datei welche du danach angibst (wenn sie nicht existiert wird sie angelegt, ansonsten überschrieben). Mit dir /? kannst du dir noch weitere Optionen anzeigen lassen.

Re: Wie kann ich eine Dateiliste in Excel importieren?

Zitat

Original geschrieben von Stephan I.
Hi,

meine Aufgabe:

Ich habe eine Diskette, wo 250 Dateien drauf sind. Diese brauche ich in einer Exceltabelle name.endung, also die Dateinamen als Liste.

Weiß jemand wie das geht, ohne abtippen zu müssen?

Danke...

Alles anzeigen

Hallo,

in welchem Format liegen die Dateien vor?

mfg

Thomas

hi,

drücke in excel ALT+F11 für den VBA-Editor, doppelklick links auf "Tabelle1(Tabelle1)" und rechts in dem grossen weissen fenster fügst du folgendes ein:

Sub FilSearch()


Const SUCHBEGRIFF = "*.*"


Dim Row As Integer
Dim IndLen As Integer
Dim Zw_IndLen As Integer
Dim gefundeneDatei As Variant


With Application.FileSearch
    .NewSearch
    .LookIn = "A:\"
    .SearchSubFolders = True
    .Filename = SUCHBEGRIFF


If .Execute > 0 Then
    For Row = 1 To .FoundFiles.Count
    gefundeneDatei = .FoundFiles(Row)


For IndLen = 1 To Len(gefundeneDatei)


If Mid(gefundeneDatei, IndLen, 1) = "\" Then Zw_IndLen = IndLen


Next IndLen


Worksheets(1).Cells(Row + 1, 1).Value = .FoundFiles(Row)
Worksheets(1).Cells(Row + 1, 2).Value = Right(gefundeneDatei, Len(gefundeneDatei) - Zw_IndLen)
b = Left(gefundeneDatei, Len(gefundeneDatei) - (IndLen - Zw_IndLen))
Worksheets(1).Cells(Row + 1, 3).Value = b + "\"
Next Row


End If


End With
    Cells.Select
    Selection.Columns.AutoFit
    Range("A1").Select
End Sub

das ganze startest du entweder mit F5 (cursor sollte im code blinken) oder über menü extras -> makro -> makros -> tabelle1.filesearch -> ausführen

die auslese dauert allerdings etwas und evtl. solltest du noch die dateiendung und/oder das laufwerk anpassen.