Utwórz wiele folderów i podfolderów z listy danych w programie Excel
Załóżmy, że masz listę nazwisk pracowników w zakresie arkusza i chcesz utworzyć dla każdego osobne foldery do przechowywania informacji. Ręczne tworzenie każdego folderu może być czasochłonne. Istnieją jednak skuteczne metody przyspieszające ten proces. W tym przewodniku przedstawię kilka sposobów szybkiego generowania folderów na podstawie określonych wartości komórek.
Twórz foldery na podstawie wartości komórek
- Za pomocą polecenia MD i Notatnika
- Korzystając z zaawansowanej funkcji – Kutools dla Excela
- Za pomocą kodu VBA
Twórz foldery i podfoldery na podstawie wartości komórek za pomocą kodu VBA
Twórz foldery na podstawie wartości komórek
W tej sekcji szczegółowo omówimy różne metody, oferując kompleksowe instrukcje krok po kroku szybkiego i łatwego tworzenia folderów na podstawie listy wartości komórek.
Twórz foldery z listy za pomocą polecenia MD i Notatnika
Przekształcanie listy z programu Excel w foldery za pomocą polecenia MD i Notatnika to sprytna sztuczka, która łączy łatwe tworzenie skryptów wsadowych ze zdolnością programu Excel do utrzymywania porządku. Ta metoda doskonale nadaje się do szybkiego tworzenia dużej liczby folderów, bez konieczności robienia tego wszystkiego ręcznie. Oto przewodnik krok po kroku, jak wykonać to zadanie:
Krok 1: Użyj polecenia MD, aby utworzyć formuły
Skopiuj lub wprowadź następującą formułę w pustej komórce obok pierwszej wartości komórki (na przykład B1), a następnie przeciągnij uchwyt wypełniania w dół, aby zastosować formułę do wszystkich elementów listy.
="MD "&A1
Krok 2: Skopiuj i wklej formuły do pliku Notatnika
- Naciśnij przycisk Ctrl + C aby skopiować komórki za pomocą formuły polecenia MD.
- Otwarte Notepad i naciśnij Ctrl + V aby wkleić polecenia do nowego pliku.
Krok 3: Zapisz plik Notatnika jako plik .bat
Kliknij Zapisz jako z filet w Notatniku, w zakładce Zapisz jako oknie dialogowym wybierz katalog, w którym chcesz utworzyć wiele folderów, a następnie nadaj temu plikowi nazwę z rozszerzeniem . Beat rozszerzenie. Na koniec kliknij Zapisz przycisk. Zobacz zrzut ekranu:
Krok 4: Kliknij dwukrotnie plik .bat, aby wygenerować wiele folderów
- Zamknij plik Notatnika i przejdź do folderu, w którym wcześniej zapisałeś plik .bat.
- Teraz zobacz magię: kliknij dwukrotnie plik, a zobaczysz, jak wiele folderów jest tworzonych jednocześnie. Zobacz demo poniżej:
Twórz foldery z listy za pomocą potężnego narzędzia – Kutools dla Excela
Z potężnym Kutools dla programu Excel'S Utwórz foldery z zawartości komórki Dzięki tej funkcji możesz teraz łatwo i szybko tworzyć foldery z listy programu Excel. Ale to nie kończy się tylko na podstawowych folderach; Kutools umożliwia także tworzenie złożonych struktur z wielopoziomowymi podfolderami za jednym razem. Zaledwie kilka prostych kroków może przekształcić dane z Excela w zorganizowany system folderów, znacznie zwiększając Twoją produktywność.
Po zainstalowaniu Kutools dla programu Excel, Proszę kliknąć Kutools Plus > Import / Export > Utwórz foldery z zawartości komórki otworzyć Utwórz foldery z zawartości komórki Okno dialogowe:
- Wybierz wartości komórek, na podstawie których chcesz utworzyć foldery;
- Następnie kliknij przycisk przycisk umożliwiający określenie folderu docelowego, w którym chcesz zapisać foldery;
- Na koniec kliknij OK przycisk.
Wynik:
Kutools przetworzy listę z Twojego arkusza i utworzy folder dla każdego wpisu w określonym miejscu docelowym. Przejdź do folderu docelowego, aby zobaczyć wynik. Zobacz zrzut ekranu:
- Ta przydatna funkcja również może pomóc tworzyć foldery wraz z ich podfolderami tak jak potrzebujesz. Aby to zrobić, należy wprowadzić do komórek nazwy żądanych folderów i podfolderów, oddzielając poszczególne poziomy znakiem ukośnika odwrotnego (\). Zawartość każdej komórki będzie służyć jako wskazówka przy konfigurowaniu pożądanej struktury folderów i podfolderów.
Następnie zastosuj Utwórz foldery z zawartości komórki funkcja, wszystkie foldery wraz z ich podfolderami zostaną pomyślnie utworzone. Zobacz zrzut ekranu: - Aby zastosować tę funkcję, proszę pobierz i zainstaluj Kutools dla Excela pierwszy.
Utwórz foldery z listy za pomocą kodu VBA
Korzystanie z kodu VBA w programie Excel może przekształcić żmudne zadanie tworzenia folderów z listy w szybki, zautomatyzowany proces. W tej sekcji dowiesz się, jak zastosować kod VBA do generowania folderów.
Krok 1: Otwórz edytor modułów VBA i skopiuj kod
- Przytrzymaj przycisk ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
- Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Twórz foldery na podstawie listy wartości komórekSub 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: Wykonaj kod
- Po wklejeniu tego kodu naciśnij F5 klucz do uruchomienia tego kodu. W polu zachęty wybierz wartości komórek, z których chcesz utworzyć foldery. A następnie kliknij OK.
- Następnie w dalszej części Wybierz folder docelowy oknie określ ścieżkę docelową, na którą mają być wysyłane utworzone foldery. A następnie kliknij OK przycisk, zobacz zrzut ekranu:
Wynik:
Po wykonaniu kodu VBA przejdź do katalogu docelowego, aby zobaczyć wynik. Znajdziesz tam nowo utworzone foldery, każdy odpowiadający pozycji z listy Excela. zobacz zrzut ekranu:
- Jeśli w komórkach znajdują się zduplikowane wpisy, uruchomienie kodu spowoduje utworzenie tylko jednego folderu dla tych duplikatów.
- Jeśli często używasz tego kodu, rozważ zapisanie skoroszytu w Skoroszyt programu Excel z obsługą makr format. Ta akcja zachowuje kod w skoroszycie, umożliwiając bezpośrednie wykonanie go w przyszłości bez konieczności ponownego wprowadzania lub ponownego importowania kodu.
Twórz foldery i podfoldery na podstawie wartości komórek za pomocą kodu VBA
Czasami możesz znaleźć się w sytuacji, w której musisz wygenerować nie tylko foldery, ale także odpowiadające im podfoldery, a wszystko to na podstawie danych zawartych w komórkach Excela. Aby zrealizować to zadanie, przedstawię tutaj kod VBA.
Krok 1: Przygotuj dane
Najpierw należy wprowadzić dane jak na zrzucie ekranu, w pierwszej kolumnie umieścić nazwy głównych folderów, w drugiej nazwy podfolderów.
Krok 2: Otwórz edytor modułów VBA i skopiuj kod
- Przytrzymaj przycisk ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
- Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Twórz foldery i podfoldery na podstawie wartości komórekSub 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: Wykonaj kod
- Po wklejeniu tego kodu naciśnij F5 klucz do uruchomienia tego kodu. W polu zachęty wybierz wartości komórek, z których chcesz utworzyć foldery. A następnie kliknij OK.
- W następnym wyskakującym oknie określ ścieżkę docelową, na którą mają być wysyłane utworzone foldery. A następnie kliknij OK przycisk, zobacz zrzut ekranu:
Wynik:
Po wykonaniu kodu VBA przejdź do katalogu docelowego, aby zobaczyć wynik. Przekonasz się, że foldery i ich podfoldery, zgodnie z wartościami komórek, zostały pomyślnie utworzone, jak pokazano na poniższym zrzucie ekranu:
- Ten kod jest dostępny tylko do tworzenia tylko folderów głównych i ich podfolderów pierwszego poziomu.
- Jeśli często używasz tego kodu, rozważ zapisanie skoroszytu w Skoroszyt programu Excel z obsługą makr format. Ta akcja zachowuje kod w skoroszycie, umożliwiając bezpośrednie wykonanie go w przyszłości bez konieczności ponownego wprowadzania lub ponownego importowania kodu.
Podobne artykuły:
- Wyświetl wszystkie nazwy plików z folderu i podfolderów w arkuszu
- Jeśli chcesz wygenerować listę nazw plików w katalogu w arkuszu, możesz skorzystać z następujących sposobów, aby szybko uzyskać listę plików z katalogu w arkuszu.
- Wyświetl wszystkie foldery i podfoldery w programie Excel
- Czy kiedykolwiek miałeś problem z wyświetlaniem wszystkich folderów i podfolderów z określonego katalogu w arkuszu? W programie Excel nie ma szybkiego i wygodnego sposobu na jednoczesne pobranie nazwy wszystkich folderów w określonym katalogu. Aby poradzić sobie z zadaniem, ten artykuł może ci pomóc.
- Kopiuj lub przenoś pliki z jednego folderu do drugiego na podstawie listy
- Jeśli masz listę nazw plików w kolumnie w arkuszu, a pliki znajdują się w folderze w twoim komputerze. Ale teraz musisz przenieść lub skopiować te pliki, których nazwy są wymienione w arkuszu z oryginalnego folderu do innego, jak pokazano na zrzucie ekranu. Jak możesz wykonać to zadanie tak szybko, jak to możliwe w programie Excel?
- Zmień nazwę wielu plików w folderze
- Być może większość z nas cierpi z powodu tego problemu, że musimy zmienić nazwy wielu plików w folderze, a zmiana nazw plików jedna po drugiej doprowadzi nas do szaleństwa, jeśli w tym folderze są setki lub tysiące plików. Czy są dla nas jakieś dobre funkcje, aby poradzić sobie z tym zadaniem?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!