Erstellen Sie mehrere Ordner und Unterordner aus einer Liste von Daten in Excel

Angenommen, Sie haben eine Liste mit Mitarbeiternamen innerhalb eines Arbeitsblattbereichs und möchten für jeden einzelnen Ordner erstellen, um deren Informationen zu speichern. Das manuelle Erstellen jedes Ordners kann zeitaufwendig sein. Es gibt jedoch effiziente Methoden, um diesen Prozess zu beschleunigen. In diesem Leitfaden werde ich mehrere Ansätze teilen, um schnell Ordner basierend auf den angegebenen Zellwerten zu generieren.

Ordner basierend auf Zellwerten erstellen

• Durch Verwendung des MD-Befehls und Notepad
• Durch Verwendung einer leistungsstarken Funktion – Kutools für Excel
• Durch Verwendung von VBA-Code

Ordner und Unterordner basierend auf Zellwerten mit VBA-Code erstellen

Ordner basierend auf Zellwerten erstellen

In diesem Abschnitt werden wir verschiedene Methoden im Detail untersuchen und umfassende Schritt-für-Schritt-Anweisungen bieten, um schnell und mühelos Ordner basierend auf einer Liste von Zellwerten zu erstellen.

Ordner aus einer Liste erstellen, indem Sie den MD-Befehl und Notepad verwenden

Das Umwandeln einer Liste aus Excel in Ordner mithilfe des MD-Befehls und Notepad ist ein cleverer Trick, der einfaches Batch-Skripting mit Excels Fähigkeit verbindet, Dinge organisiert zu halten. Diese Methode eignet sich hervorragend zum schnellen Erstellen vieler Ordner, ohne alles manuell tun zu müssen. Hier ist eine Schritt-für-Schritt-Anleitung, um diese Aufgabe zu erledigen:

Schritt 1: Verwenden Sie den MD-Befehl, um Formeln zu erstellen

Kopieren oder geben Sie die folgende Formel in eine leere Zelle neben Ihrem ersten Zellwert (z. B. B1) ein, und ziehen Sie dann den Ausfüllkursor nach unten, um die Formel auf alle Ihre Listenelemente anzuwenden.

="MD "&A1

Schritt 2: Kopieren und fügen Sie die Formeln in eine Notepad-Datei ein

1. Drücken Sie "Strg + C", um die Zellen mit der MD-Befehlsformel zu kopieren.
2. Öffnen Sie Notepad und drücken Sie "Strg + V", um die Befehle in eine neue Datei einzufügen.
   

Schritt 3: Speichern Sie die Notepad-Datei als .bat-Datei

Klicken Sie im Notepad auf "Speichern unter" im Menü "Datei". Wählen Sie im Dialogfeld "Speichern unter" einen Ordner aus, in dem Sie mehrere Ordner erstellen möchten, und geben Sie dieser Datei einen Namen mit der Endung .bat. Klicken Sie abschließend auf die Schaltfläche "Speichern". Siehe Screenshot:

Schritt 4: Doppelklicken Sie auf die .bat-Datei, um mehrere Ordner zu generieren

1. Schließen Sie die Notepad-Datei und navigieren Sie zu dem Ordner, in dem Sie die .bat-Datei zuvor gespeichert haben.
2. Jetzt erleben Sie die Magie: Doppelklicken Sie auf die Datei, und Sie werden sehen, wie mehrere Ordner auf einmal erstellt werden. Siehe die Demo unten:
   

Ordner aus einer Liste erstellen, indem Sie ein leistungsstarkes Tool verwenden – Kutools für Excel

Mit der leistungsstarken Funktion „Ordner basierend auf Bereich erstellen“ von Kutools für Excel können Sie nun ganz einfach und schnell Ordner aus einer Excel-Liste erstellen. Aber es hört nicht bei einfachen Ordnern auf; Kutools ermöglicht es Ihnen auch, komplexe Strukturen mit mehrstufigen Unterordnern auf einmal zu erstellen. Mit ein paar einfachen Schritten können Sie Daten aus Excel in ein organisiertes Ordnersystem verwandeln, was Ihre Produktivität erheblich steigert.

Nach der Installation von Kutools für Excel klicken Sie bitte auf "Kutools Plus" > "Import / Export" > "Ordner basierend auf Bereich erstellen", um das Dialogfeld „Ordner basierend auf Bereich erstellen“ zu öffnen:

1. Wählen Sie die Zellwerte aus, auf deren Basis Sie Ordner erstellen möchten;
2. Klicken Sie dann auf die Schaltfläche, um den Zielordner anzugeben, in dem Sie die Ordner speichern möchten;
3. Klicken Sie abschließend auf die Schaltfläche OK.
   

Ergebnis:

Kutools verarbeitet die Liste aus Ihrem Blatt und erstellt für jeden Eintrag einen Ordner im angegebenen Ziel. Navigieren Sie zum Zielordner, um das Ergebnis zu sehen. Siehe Screenshot:

Ordner aus einer Liste erstellen, indem Sie VBA-Code verwenden

Die Verwendung von VBA-Code in Excel kann die mühsame Aufgabe, Ordner aus einer Liste zu erstellen, in einen schnellen, automatisierten Prozess verwandeln. Dieser Abschnitt zeigt Ihnen, wie Sie VBA-Code anwenden, um Ordner zu generieren.

Schritt 1: Öffnen Sie den VBA-Modul-Editor und kopieren Sie den Code

1. Halten Sie die Tasten "ALT + F11" in Excel gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.
2. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden Code im Modulfenster ein.
   VBA-Code: Ordner basierend auf einer Liste von Zellwerten erstellen

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Schritt 2: Führen Sie den Code aus

1. Nachdem Sie diesen Code eingefügt haben, drücken Sie bitte die F5-Taste, um den Code auszuführen. Wählen Sie im Eingabefenster die Zellwerte aus, aus denen Sie Ordner erstellen möchten. Klicken Sie dann auf OK.
   
2. Geben Sie im folgenden Fenster "Zielordner auswählen" den Zielpfad für die Ausgabe der erstellten Ordner an. Klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
   

Ergebnis:

Nachdem Sie den VBA-Code ausgeführt haben, gehen Sie zum Zielverzeichnis, um das Ergebnis zu sehen. Dort finden Sie die neu erstellten Ordner, die jeweils einem Element aus Ihrer Excel-Liste entsprechen. Siehe Screenshot:

Ordner und Unterordner basierend auf Zellwerten mit VBA-Code erstellen

Gelegentlich könnten Sie sich in einer Situation befinden, in der Sie nicht nur Ordner, sondern auch deren entsprechende Unterordner basierend auf den Daten in Excel-Zellen generieren müssen. Um diese Aufgabe zu erreichen, werde ich hier einen VBA-Code vorstellen.

Schritt 1: Bereiten Sie die Daten vor

Geben Sie zunächst die Daten wie im folgenden Screenshot gezeigt ein, platzieren Sie die Namen der Hauptordner in der ersten Spalte und die Namen für die Unterordner in der zweiten Spalte.

Schritt 2: Öffnen Sie den VBA-Modul-Editor und kopieren Sie den Code

1. Halten Sie die Tasten "ALT + F11" in Excel gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.
2. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden Code im Modulfenster ein.
   VBA-Code: Ordner und Unterordner basierend auf Zellwerten erstellen

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Schritt 3: Führen Sie den Code aus

1. Nachdem Sie diesen Code eingefügt haben, drücken Sie bitte die F5-Taste, um den Code auszuführen. Wählen Sie im Eingabefenster die Zellwerte aus, aus denen Sie Ordner erstellen möchten. Klicken Sie dann auf OK.
   
2. Geben Sie im folgenden Fenster den Zielpfad für die Ausgabe der erstellten Ordner an. Klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:
   

Ergebnis:

Nachdem Sie den VBA-Code ausgeführt haben, gehen Sie zum Zielverzeichnis, um das Ergebnis zu sehen. Sie werden feststellen, dass die Ordner und ihre jeweiligen Unterordner, wie durch die Zellwerte vorgegeben, erfolgreich erstellt wurden, wie im folgenden Screenshot gezeigt:

Verwandte Artikel: