根据Excel中的数据列表创建多个文件夹和子文件夹

假设您在工作表的某个区域中有一份员工名单，并希望为每位员工创建单独的文件夹以存储他们的信息。手动逐一创建每个文件夹可能会非常耗时。然而，有一些高效的方法可以加速这一过程。在本指南中，我将分享几种基于指定单元格值快速生成文件夹的方法。

根据单元格值创建文件夹

• 通过使用MD命令和记事本
• 通过使用强大的功能——Kutools for Excel
• 通过使用VBA代码

使用VBA代码根据单元格值创建文件夹和子文件夹

根据单元格值创建文件夹

在本节中，我们将详细探讨各种方法，提供全面的分步指导，帮助您快速轻松地根据单元格值列表创建文件夹。

使用MD命令和记事本从列表创建文件夹

利用MD命令和记事本将Excel中的列表转换为文件夹是一个巧妙的技巧，它结合了简单的批处理脚本与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后，请点击“Kutools Plus”>“导入/导出”>“基于区域创建文件夹”以打开“基于区域创建文件夹”对话框：

1. 选择要基于其创建文件夹的单元格值；
2. 然后，点击 按钮以指定要保存文件夹的目标文件夹；
3. 最后，点击确定按钮。
   

结果：

Kutools将处理您工作表中的列表，并在指定目标位置为每个条目创建一个文件夹。导航到目标文件夹查看结果。请参见截图：

使用VBA代码从列表创建文件夹

在Excel中使用VBA代码可以将从列表创建文件夹这项繁琐的任务转变为快速、自动化的流程。本节将向您展示如何应用VBA代码来生成文件夹。

步骤1：打开VBA模块编辑器并复制代码

1. 在Excel中按住“ALT + F11”键，打开“Microsoft Visual Basic for Applications”窗口。
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键运行此代码。在弹出的对话框中，选择要创建文件夹的单元格值，然后点击确定。
   
2. 接着，在随后弹出的“选择目标文件夹”窗口中，指定输出创建的文件夹的目标路径。然后，点击确定按钮，请参见截图：
   

结果：

执行VBA代码后，前往目标目录查看结果。在那里，您会发现新创建的文件夹，每个文件夹对应于Excel列表中的一个条目。请参见截图：

使用VBA代码根据单元格值创建文件夹和子文件夹

有时，您可能需要生成的不仅仅是文件夹，还有它们对应的子文件夹，所有这些都基于Excel单元格中的数据。为了完成此任务，这里我将介绍一段VBA代码。

步骤1：准备数据

首先，您应按照如下截图所示输入数据，将主文件夹名称放在第一列，将子文件夹名称放在第二列。

步骤2：打开VBA模块编辑器并复制代码

1. 在Excel中按住“ALT + F11”键，打开“Microsoft Visual Basic for Applications”窗口。
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键运行此代码。在弹出的对话框中，选择要创建文件夹的单元格值，然后点击确定。
   
2. 在随后弹出的窗口中，指定输出创建的文件夹的目标路径。然后，点击确定按钮，请参见截图：
   

结果：

执行VBA代码后，前往目标目录查看结果。您会发现文件夹及其各自的子文件夹已根据单元格值成功创建，如下图所示：

相关文章：