Microsoft Excel ist nicht nur tabellarische Daten , Berechnungen und Informations-Management . Jeder begeisterte Benutzer kann Excel in ein leistungsfähiges Werkzeug für die Verwaltung von Ordnern , Dateien zu organisieren und den Überblick über Aufgaben drehen . Sie können ein Makro erstellen, das einen FileDialog VBA -Objekt verwendet , um schnell ein Verzeichnis und dessen Inhalt Liste in einer Tabellenkalkulation . Bei der Ausführung wird dieses Makro Benutzer auffordern, einen Ordner auszuwählen, und es wird anschließend die Namen seines Inhalts in einer einzigen Spalte . Anleitung
Erstellen des Makros
1

Starten Sie Microsoft Excel. Drücken Sie "Strg + O ", wählen Sie Ihre Arbeitsmappe und klicken Sie dann auf "Öffnen". Um eine neue Arbeitsmappe zu erstellen, statt , drücken Sie "Strg + N. "
2

Presse " ALT + F8 ", um das Dialogfeld Makros zu öffnen. Type " GetFolderContents " in das Feld Makroname und dann klicken Sie auf " Erstellen".
3

Geben Sie den folgenden Code in den VBA-Editor .

Sub GetFolderContents ()

Dim XDIR , xFilename , f, fso As Object

fso = CreateObject (" Scripting.FileSystemObject " )

Application.FileDialog Set ( msoFileDialogFolderPicker )
< p > . InitialFileName = ThisWorkbook.Path & "\\"

. Title = " Wählen Sie einen Ordner , um Dateien aus der Liste "

. AllowMultiSelect = False

. anzeigen

. SelectedItems.Count < > 0 Then

XDIR = . SelectedItems (1) & "\\"

End If End With

If ( MsgBox ( Prompt: = "? möchten Sie Unterordner einbeziehen ", _

Buttons: = vbYesNo , Title: = " Unterordner einbeziehen " ) = vbYes ) Dann
< p > GoTo ListFolders

GoTo ListFiles

Else

GoTo ListFiles

End If

ListFolders :

For Each f In fso.GetFolder ( XDIR ) . UnterOrdnerAuflistung

ActiveCell.Value = " .. \\ " & f.Name

ActiveCell.Offset (1 , 0). Wählen
< p > Weiter f

ListFiles :

For Each f In fso.GetFolder ( XDIR ) Dateien

ActiveCell.Value = f.Name

ActiveCell . . Offset (1 , 0). Wählen

Weiter f

Set fso = Nothing End Sub

4

Presse " ALT + Q" um den VBA-Editor zu schließen und kehren Sie zu Ihrer Arbeitsmappe.
Verwendung des Makromodus
5

Markieren Sie eine Zelle in Ihrem Blatt . Drücken Sie auf " ALT + I" und dann "C" , um eine leere Spalte zu erstellen . Wählen Sie die erste Zelle in der neuen Spalte . Wenn Sie möchten , um die Liste in einem neuen Arbeitsblatt anzuzeigen statt , drücken Sie "SHIFT + F11 . "
6

Presse " ALT + F8 ", um das Dialogfeld Makros zu öffnen. Wählen Sie " GetFolderContents " und klicken dann auf "Ausführen ".
7

Wählen Sie den Ordner oder das Verzeichnis , aus dem Sie den Inhalt auflisten würde . Klicken Sie auf "OK".
8

Klicken Sie auf " Ja", wenn Sie das Makro möchte auch gern die Namen der Unterordner , oder klicken Sie auf "Nein" zur Liste Dateien. Warten Sie Excel zu beenden bevölkern die neue Spalte mit dem Inhalt Ihrer gewählten Ordner .