Vytvořte více složek a podsložek ze seznamu dat v Excelu
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
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
- Stisknout Ctrl + C pro zkopírování buněk pomocí příkazového vzorce MD.
- 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
- Zavřete soubor Poznámkový blok, přejděte do složky, do které jste dříve uložili soubor .bat.
- 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:
- Vyberte hodnoty buněk, na základě kterých chcete vytvořit složky;
- Potom klepněte na tlačítko tlačítko pro zadání cílové složky, do které chcete složky uložit;
- 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:
- Tato užitečná funkce může také pomoci vytvářet složky spolu s jejich podsložkami jak potřebujete. Chcete-li to provést, měli byste do buněk zadat názvy požadovaných složek a podsložek pomocí znaménka zpětného lomítka (\) k oddělení jednotlivých úrovní. Obsah každé buňky bude sloužit jako vodítko pro nastavení požadované struktury složek a podsložek.
Poté aplikujte Vytvořte složky z obsahu buňky všechny složky spolu s jejich podsložkami budou úspěšně vytvořeny. Viz snímek obrazovky: - Chcete-li použít tuto funkci, prosím stáhnout a nainstalovat Kutools pro Excel jako první.
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
- Podržte stisknuté tlačítko ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.
- 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ěkSub 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
- 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.
- 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:
- Pokud jsou v buňkách duplicitní položky, spuštění kódu povede k vytvoření pouze jedné složky pro tyto duplikáty.
- Pokud zjistíte, že tento kód používáte často, zvažte uložení sešitu Sešit Excel s podporou maker formát. Tato akce zachová kód v sešitu, což vám umožní přímo jej spustit v budoucnu, aniž byste museli kód znovu zadávat nebo znovu importovat.
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
- Podržte stisknuté tlačítko ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.
- 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ěkSub 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
- 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.
- 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:
- Tento kód je k dispozici pouze pro vytvoření pouze hlavních složek a jejich podsložek první úrovně.
- Pokud zjistíte, že tento kód používáte často, zvažte uložení sešitu Sešit Excel s podporou maker formát. Tato akce zachová kód v sešitu, což vám umožní přímo jej spustit v budoucnu, aniž byste museli kód znovu zadávat nebo znovu importovat.
Související články:
- Vypište všechny názvy souborů ze složky a podsložek do listu
- Pokud chcete vygenerovat seznam názvů souborů v adresáři v listu, můžete zpracovat následující způsoby, jak rychle získat seznam souborů z adresáře v listu.
- Seznam všech složek a podsložek v aplikaci Excel
- Už jste někdy trpěli tímto problémem, že jste do listu uvedli všechny složky a podsložky ze zadaného adresáře? V aplikaci Excel neexistuje rychlý a praktický způsob, jak získat název všech složek v určitém adresáři najednou. Při řešení tohoto úkolu vám může pomoci tento článek.
- Zkopírujte nebo přesouvejte soubory z jedné složky do druhé na základě seznamu
- Pokud máte seznam názvů souborů ve sloupci v listu a soubory se nacházejí ve složce ve vašem počítači. Ale teď musíte přesunout nebo zkopírovat tyto soubory, jejichž názvy jsou uvedeny v listu z jejich původní složky do jiné, jak je znázorněno na následujícím obrázku. Jak byste mohli tento úkol dokončit co nejrychleji v aplikaci Excel?
- Přejmenujte více souborů ve složce
- Možná většina z nás trpí tímto problémem, že musíme přejmenovat více souborů ve složce, přejmenovat jeden po druhém nás bude bláznit, pokud v této složce budou stovky nebo tisíce souborů. Existují pro nás nějaké dobré funkce, abychom tento úkol zvládli?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!