Předpokládejme, že máte seznam jmen zaměstnanců v rozsahu pracovního listu a chcete pro každého vytvořit samostatné složky pro uložení jejich informací. Ruční vytváření každé složky může být časově náročné. Existují však účinné způsoby, jak tento proces urychlit. V této příručce se podělím o několik přístupů k rychlému generování složek na základě zadaných hodnot buněk.

Vytvářejte složky na základě hodnot buněk

• Pomocí příkazu MD a poznámkového bloku
• Pomocí výkonné funkce – Kutools pro Excel
• Pomocí kódu VBA

Vytvářejte složky a podsložky na základě hodnot buněk pomocí kódu VBA

Vytvářejte složky na základě hodnot buněk

V této části podrobně prozkoumáme různé metody a nabídneme komplexní pokyny krok za krokem k rychlému a snadnému vytváření složek na základě seznamu hodnot buněk.

Vytvořte složky ze seznamu pomocí příkazu MD a programu Poznámkový blok

Převedení seznamu z Excelu do složek pomocí příkazu MD a Poznámkového bloku je chytrý trik, který kombinuje snadné dávkové skriptování s talentem Excelu pro udržení pořádku. Tato metoda je skvělá pro rychlé vytváření mnoha složek, aniž byste to museli dělat ručně. Zde je podrobný návod, jak tento úkol splnit:

Krok 1: Pomocí příkazu MD vytvořte vzorce

Zkopírujte nebo zadejte následující vzorec do prázdné buňky vedle hodnoty první buňky (například B1) a poté přetažením úchytu výplně dolů použijte vzorec na všechny položky seznamu.

="MD "&A1

Krok 2: Zkopírujte a vložte vzorce do souboru programu Poznámkový blok

1. Stisknout Ctrl + C pro zkopírování buněk pomocí příkazového vzorce MD.
2. Otevřená Notepad a stiskněte Ctrl + V pro vložení příkazů do nového souboru.
   

Krok 3: Uložte soubor programu Poznámkový blok jako soubor .bat

klikněte Uložit jako z Soubor kartu v Poznámkovém bloku, v Uložit jako dialogovém okně vyberte adresář, ve kterém chcete vytvořit více složek, a poté pojmenujte tento soubor pomocí a . Tlukot rozšíření. Nakonec klikněte Uložit knoflík. Viz screenshot:

Krok 4: Dvojitým kliknutím na soubor .bat vygenerujete více složek

1. Zavřete soubor Poznámkový blok, přejděte do složky, do které jste dříve uložili soubor .bat.
2. Nyní se staňte svědky toho kouzla: dvakrát klikněte na soubor a uvidíte, že se vytváří více složek najednou. Podívejte se na ukázku níže:
   

Vytvořte složky ze seznamu pomocí výkonného nástroje – Kutools pro Excel

S mocnými Kutools pro ExcelJe Vytvořte složky z obsahu buňky nyní můžete snadno a rychle vytvářet složky ze seznamu aplikace Excel. Nezůstane ale jen u základních složek; Kutools také umožňuje vytvářet složité struktury s víceúrovňovými podsložkami najednou. Jen několik jednoduchých kroků může transformovat data z Excelu do organizovaného systému složek, což výrazně zvýší vaši produktivitu.

Po instalaci Kutools pro Excel, Prosím klikněte Kutools Plus > Import Export > Vytvořte složky z obsahu buňky k otevření Vytvořte složky z obsahu buňky dialogové okno:

1. Vyberte hodnoty buněk, na základě kterých chcete vytvořit složky;
2. Potom klepněte na tlačítko tlačítko pro zadání cílové složky, do které chcete složky uložit;
3. Nakonec klepněte na tlačítko OK .
   

Výsledek:

Kutools zpracuje seznam z vašeho listu a vytvoří složku pro každý záznam v zadaném cíli. Chcete-li zobrazit výsledek, přejděte do cílové složky. Viz snímek obrazovky:

Vytvořte složky ze seznamu pomocí kódu VBA

Použití kódu VBA v Excelu může přeměnit únavný úkol vytváření složek ze seznamu na rychlý, automatizovaný proces. Tato část vám ukáže, jak použít kód VBA pro generování složek.

Krok 1: Otevřete editor modulu VBA a zkopírujte kód

1. Podržte stisknuté tlačítko ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.
2. klikněte Vložit > Modula vložte následující kód do Modul Okno.
   Kód VBA: Vytvářejte složky na základě seznamu hodnot buněk

   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
   

Krok 2: Spusťte kód

1. Po vložení tohoto kódu stiskněte F5 klíč ke spuštění tohoto kódu. V poli výzvy vyberte hodnoty buněk, ze kterých chcete vytvořit složky. A pak klikněte OK.
   
2. Potom v následujícím Vyberte cílovou složku v okně zadejte cílovou cestu pro výstup vytvořených složek. A pak klikněte OK tlačítko, viz screenshot:
   

Výsledek:

Po provedení kódu VBA přejděte do cílového adresáře a zobrazte výsledek. Zde najdete nově vytvořené složky, z nichž každá odpovídá položce z vašeho seznamu Excel. viz snímek obrazovky:

Vytvářejte složky a podsložky na základě hodnot buněk pomocí kódu VBA

Občas se můžete dostat do situace, kdy potřebujete vygenerovat nejen složky, ale i jejich odpovídající podsložky, a to vše na základě dat v buňkách Excelu. K dosažení tohoto úkolu zde představím kód VBA.

Krok 1: Připravte data

Nejprve byste měli zadat data podle následujícího obrázku, umístit názvy hlavních složek do prvního sloupce a názvy podsložek do druhého sloupce.

Krok 2: Otevřete editor modulu VBA a zkopírujte kód

1. Podržte stisknuté tlačítko ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.
2. klikněte Vložit > Modula vložte následující kód do Modul Okno.
   Kód VBA: Vytvářejte složky a podsložky založené na hodnotách buněk

   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
   

Krok 3: Spusťte kód

1. Po vložení tohoto kódu stiskněte F5 klíč ke spuštění tohoto kódu. V poli výzvy vyberte hodnoty buněk, ze kterých chcete vytvořit složky. A pak klikněte OK.
   
2. V následujícím vyskakovacím okně zadejte cílovou cestu pro výstup vytvořených složek. A pak klikněte OK tlačítko, viz screenshot:
   

Výsledek:

Po provedení kódu VBA přejděte do cílového adresáře a zobrazte výsledek. Zjistíte, že složky a jejich příslušné podsložky, jak je diktováno hodnotami buněk, byly úspěšně vytvořeny, jak ukazuje následující snímek obrazovky:

Související články: