Angenommen, Sie haben eine Liste mit Mitarbeiternamen innerhalb eines Arbeitsblattbereichs und möchten für jeden einzelne Ordner erstellen, um seine Informationen zu speichern. Das manuelle Erstellen jedes Ordners kann zeitaufwändig sein. Es gibt jedoch effiziente Methoden, um diesen Prozess zu beschleunigen. In diesem Leitfaden werde ich verschiedene Ansätze zum schnellen Generieren von Ordnern basierend auf den angegebenen Zellenwerten vorstellen.

Erstellen Sie Ordner basierend auf Zellwerten

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

Erstellen Sie Ordner und Unterordner basierend auf Zellwerten mit VBA-Code

Erstellen Sie Ordner basierend auf Zellwerten

In diesem Abschnitt gehen wir detailliert auf verschiedene Methoden ein und bieten ausführliche Schritt-für-Schritt-Anleitungen zum schnellen und mühelosen Erstellen von Ordnern auf der Grundlage einer Liste von Zellwerten.

Erstellen Sie Ordner aus einer Liste mit dem MD-Befehl und Notepad

Das Umwandeln einer Liste aus Excel in Ordner mit dem MD-Befehl und Notepad ist ein cleverer Trick, der einfaches Batch-Scripting mit der Fähigkeit von Excel, Dinge organisiert zu halten, verbindet. Diese Methode eignet sich hervorragend, um schnell viele Ordner zu erstellen, ohne alles von Hand erledigen zu müssen. Hier finden Sie eine Schritt-für-Schritt-Anleitung zur Bewältigung dieser Aufgabe:

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

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

="MD "&A1

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

1. Presse- Ctrl + C um die Zellen mit der MD-Befehlsformel zu kopieren.
2. Offen Notizblock 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 auf Kostenlos erhalten und dann auf Installieren. speichern unter von dem Reichen Sie das Registerkarte im Notizblock, in der speichern unter Wählen Sie im Dialogfeld ein Verzeichnis aus, in dem Sie mehrere Ordner erstellen möchten, und geben Sie dieser Datei dann einen Namen mit a . Beat Verlängerung. Klicken Sie abschließend Speichern Taste. Siehe Screenshot:

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

1. Schließen Sie die Notepad-Datei und navigieren Sie zu dem Ordner, in dem Sie zuvor die .bat-Datei gespeichert haben.
2. Erleben Sie jetzt die Magie: Doppelklicken Sie auf die Datei und Sie werden sehen, wie mehrere Ordner gleichzeitig erstellt werden. Sehen Sie sich die Demo unten an:
   

Erstellen Sie Ordner aus einer Liste mit dem leistungsstarken Tool Kutools for Excel

Mit den Mächtigen Kutools for Excel Erstellen Sie Ordner aus Zelleninhalten Mit dieser Funktion können Sie jetzt einfach und schnell Ordner aus einer Excel-Liste erstellen. Aber es beschränkt sich nicht nur auf einfache Ordner; Mit Kutools können Sie auch komplexe Strukturen mit mehrstufigen Unterordnern auf einmal erstellen. Mit nur wenigen einfachen Schritten können Sie Daten aus Excel in ein organisiertes Ordnersystem umwandeln und so Ihre Produktivität erheblich steigern.

Nach der Installation Kutools for Excel, Klicken Sie bitte Kutoolen Plus > Import / Export > Erstellen Sie Ordner aus Zelleninhalten öffnen Erstellen Sie Ordner aus Zelleninhalten Dialogbox:

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

Ergebnis:

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

Erstellen Sie mithilfe von VBA-Code Ordner aus einer Liste

Die Verwendung von VBA-Code in Excel kann die mühsame Aufgabe, Ordner aus einer Liste zu erstellen, in einen schnellen, automatisierten Prozess verwandeln. In diesem Abschnitt erfahren Sie, wie Sie VBA-Code zum Generieren von Ordnern anwenden.

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

1. Halten Sie die ALT + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
   VBA-Code: Erstellen Sie Ordner basierend auf einer Liste von Zellwerten

   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 F5 Schlüssel zum Ausführen dieses Codes. Wählen Sie im Eingabeaufforderungsfeld die Zellwerte aus, aus denen Sie Ordner erstellen möchten. Und dann klicken Sie OK.
   
2. Dann im Folgenden Wählen Sie den Zielordner aus Geben Sie im Fenster den Zielpfad für die Ausgabe der erstellten Ordner an. Und dann klicken Sie OK Schaltfläche, siehe Screenshot:
   

Ergebnis:

Gehen Sie nach der Ausführung des VBA-Codes zum Zielverzeichnis, um das Ergebnis anzuzeigen. Dort finden Sie die neu erstellten Ordner, die jeweils einem Eintrag aus Ihrer Excel-Liste entsprechen. siehe Screenshot:

Erstellen Sie Ordner und Unterordner basierend auf Zellwerten mit VBA-Code

Gelegentlich kann es vorkommen, dass Sie nicht nur Ordner, sondern auch die entsprechenden Unterordner erstellen müssen, und zwar alles auf der Grundlage der Daten in Excel-Zellen. Um diese Aufgabe zu lösen, werde ich hier einen VBA-Code vorstellen.

Schritt 1: Bereiten Sie die Daten vor

Zuerst sollten Sie die Daten wie im folgenden Screenshot gezeigt eingeben, die Namen der Hauptordner in die erste Spalte und die Namen der Unterordner in die zweite Spalte einfügen.

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

1. Halten Sie die ALT + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
   VBA-Code: Erstellen Sie Ordner und Unterordner basierend auf Zellwerten

   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 F5 Schlüssel zum Ausführen dieses Codes. Wählen Sie im Eingabeaufforderungsfeld die Zellwerte aus, aus denen Sie Ordner erstellen möchten. Und dann klicken Sie OK.
   
2. Geben Sie im folgenden Popup-Fenster den Zielpfad für die Ausgabe der erstellten Ordner an. Und dann klicken Sie OK Schaltfläche, siehe Screenshot:
   

Ergebnis:

Wechseln Sie nach der Ausführung des VBA-Codes zum Zielverzeichnis, um das Ergebnis anzuzeigen. Sie werden feststellen, dass die Ordner und ihre jeweiligen Unterordner, wie durch die Zellenwerte vorgegeben, erfolgreich erstellt wurden, wie im folgenden Screenshot gezeigt:

Weitere Artikel: