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

Создание папок на основе значений ячеек

• С помощью команды MD и Блокнота
• Используя мощную функцию – Kutools for Excel
• С помощью кода VBA

Создавайте папки и подпапки на основе значений ячеек с помощью кода VBA.

Создание папок на основе значений ячеек

В этом разделе мы подробно рассмотрим различные методы, предлагая подробные пошаговые инструкции для быстрого и легкого создания папок на основе списка значений ячеек.

Создайте папки из списка с помощью команды MD и Блокнота.

Преобразование списка из Excel в папки с помощью команды MD и Блокнота — это умный трюк, который сочетает в себе простоту пакетного написания сценариев с умением Excel поддерживать порядок. Этот метод отлично подходит для быстрого создания большого количества папок без необходимости делать все это вручную. Вот пошаговое руководство для выполнения этой задачи:

Шаг 1. Используйте команду MD для создания формул.

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

="MD "&A1

Шаг 2. Скопируйте и вставьте формулы в файл Блокнота.

1. Нажмите Ctrl + C скопировать ячейки с формулой команды MD.
2. Откройте Блокнот и нажмите Ctrl + V чтобы вставить команды в новый файл.
   

Шаг 3. Сохраните файл Блокнота как файл .bat.

Нажмите Сохранить как из Файл вкладка в Блокноте, в Сохранить как диалоговом окне выберите каталог, в котором вы хотите создать несколько папок, а затем дайте имя этому файлу с помощью .bat расширение. Наконец, нажмите Сохранить кнопка. Смотрите скриншот:

Шаг 4. Дважды щелкните файл .bat, чтобы создать несколько папок.

1. Закройте файл Блокнота и перейдите в папку, в которой ранее был сохранен файл .bat.
2. Теперь станьте свидетелем волшебства: дважды щелкните файл, и вы увидите одновременное создание нескольких папок. Посмотрите демо ниже:
   

Создавайте папки из списка с помощью мощного инструмента – Kutools for Excel

С мощным Kutools for ExcelАвтора Создание папок из содержимого ячеек Благодаря этой функции теперь вы можете легко и быстро создавать папки из списка Excel. Но дело не ограничивается только базовыми папками; Kutools также позволяет создавать сложные структуры с многоуровневыми подпапками за один раз. Всего несколько простых шагов помогут преобразовать данные из Excel в организованную систему папок, что значительно повысит вашу производительность.

После установки Kutools for Excel, Пожалуйста, нажмите Кутулс Плюс > Импорт / Экспорт > Создание папок из содержимого ячеек для открытия Создание папок из содержимого ячеек диалоговое окно:

1. Выберите значения ячеек, на основе которых вы хотите создать папки;
2. Затем нажмите кнопка для указания папки назначения, в которой вы хотите сохранить папки;
3. Наконец, нажмите OK .
   

Результат:

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

Создание папок из списка с помощью кода VBA

Использование кода VBA в Excel может превратить утомительную задачу создания папок из списка в быстрый автоматизированный процесс. В этом разделе показано, как применять код VBA для создания папок.

Шаг 1. Откройте редактор модулей VBA и скопируйте код.

1. Удерживая нажатой ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
   Код 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. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
   Код 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 перейдите в каталог назначения, чтобы просмотреть результат. Вы обнаружите, что папки и соответствующие им подпапки, в соответствии со значениями ячеек, были успешно созданы, как показано на следующем снимке экрана:

Статьи по теме: