| 从 Excel 中的数据列表创建多个文件夹和子文件夹 | 您所在的位置：网站首页 › 怎么建立新的表格文件夹 › 从 Excel 中的数据列表创建多个文件夹和子文件夹 |
从 Excel 中的数据列表创建多个文件夹和子文件夹
|
从 Excel 中的数据列表创建多个文件夹和子文件夹
作者：晓阳
最后修改时间：2024-03-01
假设您有一个工作表范围内的员工姓名列表，并且旨在为每个人创建单独的文件夹来存储他们的信息。手动创建每个文件夹可能非常耗时。然而，有一些有效的方法可以加快这一过程。在本指南中，我将分享几种根据指定单元格值快速生成文件夹的方法。
根据单元格值创建文件夹 通过使用MD命令和记事本 通过使用强大的功能 - Kutools for Excel 通过使用VBA代码使用 VBA 代码根据单元格值创建文件夹和子文件夹 根据单元格值创建文件夹在本节中，我们将详细探讨各种方法，提供全面的分步说明，以根据单元格值列表快速轻松地创建文件夹。 使用 MD 命令和记事本从列表创建文件夹使用 MD 命令和记事本将 Excel 中的列表转换为文件夹是一个聪明的技巧，它将简单的批处理脚本与 Excel 保持事物井然有序的技巧结合在一起。这种方法非常适合快速制作大量文件夹，而无需全部手工完成。以下是完成此任务的分步指南： 第一步：使用MD命令创建公式 将以下公式复制或输入到第一个单元格值（例如 B1）旁边的空白单元格中，然后向下拖动填充柄以将公式应用到所有列表项。 ="MD "&A1
步骤 2：将公式复制并粘贴到记事本文件中 媒体 按Ctrl + C 使用 MD 命令公式复制单元格。 可选 记事本 并按下 按Ctrl + V 将命令粘贴到新文件中。
步骤 3：将记事本文件另存为 .bat 文件 点击 除上文所 来自 文件 记事本中的选项卡中 除上文所 对话框中，选择要在其中创建多个文件夹的目录，然后用 。BAT 扩大。最后，点击 优惠 按钮。 看截图： 第四步：双击.bat文件生成多个文件夹 关闭记事本文件，导航到之前保存 .bat 文件的文件夹。 现在，见证奇迹：双击该文件，您将看到同时创建多个文件夹。请参阅下面的演示：
使用强大的工具从列表创建文件夹 - Kutools for Excel
随着强大 Kutools for Excel“ 从单元格内容创建文件夹 功能，您现在可以轻松快速地从 Excel 列表创建文件夹。但它并不仅仅停留在基本文件夹； Kutools 还允许您一次性创建具有多层子文件夹的复杂结构。只需几个简单的步骤即可将 Excel 中的数据转换为组织有序的文件夹系统，从而显着提高您的工作效率。 备注: 如果你想用这个 从单元格内容创建文件夹 功能，请 下载并安装 Kutools for Excel 第一。安装后 Kutools for Excel请点击 Kutools 加 > 导入/导出 > 从单元格内容创建文件夹 打开 从单元格内容创建文件夹 对话框： 选择要基于其创建文件夹的单元格值； 然后，点击 按钮指定要保存文件夹的目标文件夹；
最后点击 OK 按钮。
结果： Kutools 将处理您工作表中的列表，并为指定目的地中的每个条目创建一个文件夹。导航到目标文件夹以查看结果。看截图：  然后，应用 从单元格内容创建文件夹 功能，所有文件夹及其子文件夹都将成功创建。看截图： 
要应用此功能，请 下载并安装 Kutools for Excel 第一。
使用 VBA 代码从列表创建文件夹
在 Excel 中使用 VBA 代码可以将从列表中创建文件夹的繁琐任务转变为快速、自动化的过程。本节将向您展示如何应用 VBA 代码来生成文件夹。 第 1 步：打开 VBA 模块编辑器并复制代码 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。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步：执行代码 粘贴此代码后，请按 F5 键来运行此代码。在提示框中，选择要从中创建文件夹的单元格值。然后，单击 OK.
那么，在下面的 选择目标文件夹 窗口中，指定输出创建的文件夹的目标路径。然后，单击 OK 按钮，请参见屏幕截图：
结果： 执行 VBA 代码后，前往目标目录查看结果。在那里，您将找到新创建的文件夹，每个文件夹都对应于 Excel 列表中的一个项目。看截图： 有时，您可能会发现自己不仅需要生成文件夹，还需要生成其相应的子文件夹，所有这些都基于 Excel 单元格中的数据。为了实现这个任务，在这里，我将介绍一段VBA代码。 第 1 步：准备数据 首先，您应该输入如下屏幕截图所示的数据，将主文件夹名称放在第一列中，将子文件夹的名称放在第二列中。 第 2 步：打开 VBA 模块编辑器并复制代码 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。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步：执行代码 粘贴此代码后，请按 F5 键来运行此代码。在提示框中，选择要从中创建文件夹的单元格值。然后，单击 OK.
在下面弹出的窗口中，指定输出创建的文件夹的目标路径。然后，单击 OK 按钮，请参见屏幕截图：
结果： 执行VBA代码后，进入目标目录查看结果。您会发现文件夹及其各自的子文件夹（由单元格值指示）已成功创建，如下图所示： 使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... 
阅读更多
免费下载...
|
【本文地址】