Припустімо, що у вас є список імен співробітників у діапазоні аркушів, і ви прагнете створити окремі папки для кожного з них, щоб зберігати їхню інформацію. Створення кожної папки вручну може зайняти багато часу. Однак існують ефективні способи прискорити цей процес. У цьому посібнику я поділюся кількома підходами до швидкого створення папок на основі вказаних значень клітинок.

Створення папок на основі значень клітинок

• За допомогою команди MD і Блокнота
• Використовуючи потужну функцію – Kutools для Excel
• За допомогою коду VBA

Створюйте папки та вкладені папки на основі значень клітинок за допомогою коду VBA

Створення папок на основі значень клітинок

У цьому розділі ми детально розглянемо різні методи, пропонуючи вичерпні покрокові інструкції для швидкого й легкого створення папок на основі списку значень клітинок.

Створіть папки зі списку за допомогою команди MD і Блокнота

Перетворення списку з Excel на папки за допомогою команди MD і Блокнота — це розумний трюк, який поєднує легке пакетне виконання сценаріїв із умінням Excel упорядковувати речі. Цей спосіб чудово підходить для швидкого створення великої кількості папок без необхідності робити все вручну. Ось покрокова інструкція для виконання цього завдання:

Крок 1. Використовуйте команду MD для створення формул

Скопіюйте або введіть наступну формулу в порожню клітинку поруч із першим значенням клітинки (наприклад, B1), а потім перетягніть маркер заповнення вниз, щоб застосувати формулу до всіх елементів списку.

="MD "&A1

Крок 2: Скопіюйте та вставте формули у файл Блокнота

1. прес Ctrl + C щоб скопіювати комірки з формулою команди MD.
2. відкритий Блокнот і натисніть Ctrl + V щоб вставити команди в новий файл.
   

Крок 3. Збережіть файл Блокнота як файл .bat

Натисніть Зберегти як від філе у Блокноті, у Зберегти як у діалоговому вікні виберіть каталог, у якому ви хочете створити кілька папок, а потім дайте назву цьому файлу за допомогою a . Bat розширення. Нарешті натисніть зберегти кнопку. Дивіться знімок екрана:

Крок 4. Двічі клацніть файл .bat, щоб створити кілька папок

1. Закрийте файл Блокнота, перейдіть до папки, у якій ви раніше зберегли файл .bat.
2. Тепер подивіться чарівництво: двічі клацніть на файлі, і ви побачите, як одночасно створюється кілька папок. Дивіться демонстрацію нижче:
   

Створіть папки зі списку за допомогою потужного інструменту – Kutools для Excel

З могутніми Kutools для ExcelАвтора Створюйте папки із вмісту комірок Тепер ви можете легко та швидко створювати папки зі списку Excel. Але це не лише основні папки; Kutools також дозволяє створювати складні структури з багаторівневими вкладеними папками за один раз. Лише кілька простих кроків можуть перетворити дані з Excel на організовану систему папок, що значно підвищить вашу продуктивність.

після установки Kutools для Excel, Будь ласка, натисніть Kutools Plus > Імпорт-експорт > Створюйте папки із вмісту комірок відкрити Створюйте папки із вмісту комірок діалогове вікно:

1. Виберіть значення клітинок, на основі яких ви хочете створити папки;
2. Потім натисніть кнопку кнопку, щоб вказати папку призначення, у якій потрібно зберегти папки;
3. Нарешті, клацніть OK кнопки.
   

Результат:

Kutools обробить список із вашого аркуша та створить папку для кожного запису у вказаному місці призначення. Перейдіть до папки призначення, щоб побачити результат. Перегляньте скріншот:

Створіть папки зі списку за допомогою коду VBA

Використання коду VBA в Excel може перетворити нудне завдання створення папок зі списку на швидкий автоматизований процес. У цьому розділі буде показано, як застосувати код VBA для створення папок.

Крок 1. Відкрийте редактор модуля VBA та скопіюйте код

1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.
2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
   Код VBA: створюйте папки на основі списку значень комірок

   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
   

Крок 2: Виконайте код

1. Після вставки цього коду, натисніть F5 ключ для запуску цього коду. У вікні підказки виберіть значення клітинок, з яких потрібно створити папки. А потім натисніть OK.
   
2. Потім, у наступному Виберіть папку призначення у вікні вкажіть шлях призначення для виведення створених папок. А потім натисніть OK , див. знімок екрана:
   

Результат:

Після виконання коду VBA перейдіть до цільового каталогу, щоб переглянути результат. Там ви знайдете щойно створені папки, кожна з яких відповідає елементу з вашого списку Excel. дивіться знімок екрана:

Створюйте папки та вкладені папки на основі значень клітинок за допомогою коду VBA

Час від часу ви можете опинитися в ситуації, коли вам потрібно створити не лише папки, але й відповідні вкладені папки на основі даних у клітинках Excel. Щоб виконати це завдання, я запроваджу тут код VBA.

Крок 1: Підготуйте дані

По-перше, ви повинні ввести дані, як показано на знімку екрана, розмістіть назви основних папок у першому стовпці та назви вкладених папок у другому стовпці.

Крок 2. Відкрийте редактор модуля VBA та скопіюйте код

1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.
2. Натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
   Код VBA: створюйте папки та вкладені папки на основі значень клітинок

   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
   

Крок 3: Виконайте код

1. Після вставки цього коду, натисніть F5 ключ для запуску цього коду. У вікні підказки виберіть значення клітинок, з яких потрібно створити папки. А потім натисніть OK.
   
2. У наступному спливаючому вікні вкажіть шлях призначення для виведення створених папок. А потім натисніть OK , див. знімок екрана:
   

Результат:

Після виконання коду VBA перейдіть до цільового каталогу, щоб переглянути результат. Ви побачите, що папки та їхні відповідні вкладені папки, як це продиктовано значеннями клітинок, було успішно створено, як показано на наступному знімку екрана:

Статті по темі: