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

1. Naciśnij przycisk Ctrl + C aby skopiować komórki za pomocą formuły polecenia MD.
2. 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

1. Zamknij plik Notatnika i przejdź do folderu, w którym wcześniej zapisałeś plik .bat.
2. 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:

1. Wybierz wartości komórek, na podstawie których chcesz utworzyć foldery;
2. Następnie kliknij przycisk przycisk umożliwiający określenie folderu docelowego, w którym chcesz zapisać foldery;
3. 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:

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

1. Przytrzymaj przycisk ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
   Kod VBA: Twórz foldery na podstawie listy wartości komórek

   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: Wykonaj kod

1. 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.
   
2. 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:

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

1. Przytrzymaj przycisk ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
   Kod VBA: Twórz foldery i podfoldery na podstawie wartości komórek

   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: Wykonaj kod

1. 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.
   
2. 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:

Podobne artykuły: