可通过WPS表格公式生成MD命令、WPS宏（VBA）自动创建、或表格+资源管理器拖拽辅助三种方法，在指定路径下批量创建以员工姓名命名的【办公】文件夹。

☞☞☞☞点击夸克ai手把手教你，操作像呼吸一样简单！☜☜☜☜☜

如果您需要根据员工表中的姓名或工号等信息，在指定路径下批量创建以员工名称命名的【办公】文件夹，则可通过WPS表格结合系统命令或WPS宏功能实现。以下是几种可直接操作的方法：

一、使用WPS表格公式生成MD命令并执行

该方法利用WPS表格拼接Windows系统命令行指令，生成可批量执行的“md”（即mkdir）命令，适用于熟悉命令提示符操作的用户。

1、在WPS表格中，确保员工姓名列（例如A

列）已填写完整，且无空值或非法字符（如\ / : * ? " |）。

2、在B1单元格输入公式：="md "&"D:\办公\"&A1，其中“D:\办公\”为预设根目录，请按实际路径修改。

3、将B1公式向下填充至所有员工行，得到每行对应的一条创建命令。

4、全选B列命令，复制后粘贴至记事本，另存为“新建文件夹.bat”，编码选择ANSI。

5、双击运行该.bat文件，系统将在D:\办公\路径下批量创建以员工姓名命名的子文件夹。

二、使用WPS宏（VBA）自动创建文件夹

该方法通过WPS内置的VBA编辑器编写脚本，由程序自动读取员工名单并调用系统API创建文件夹，无需手动导出批处理文件。

1、在WPS表格中按下Alt + F11打开VBA编辑器。

2、点击“插入”→“模块”，在新模块窗口中粘贴以下代码：

Sub CreateFoldersFromList()

Dim ws As Worksheet, rng As Range, cell As Range

Dim folderPath As String, fullPath As String

Set ws = ActiveSheet

Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

folderPath = "D:\办公\"

For Each cell In rng

If Not IsEmpty(cell.Value) Then

fullPath = folderPath & Trim(cell.Value)

If Dir(fullPath, vbDirectory) = "" Then MkDir fullPath

End If

Next cell

MsgBox "文件夹创建完成！"

End Sub

3、关闭VBA编辑器，返回表格界面，按下Alt + F8，选择“CreateFoldersFromList”，点击“运行”。

4、确认D:\办公\路径存在且有写入权限，程序将逐行读取A列内容并创建同名文件夹。

三、借助WPS表格+资源管理器拖拽辅助法

该方法不依赖编程或命令行，适用于仅需少量员工（≤50人）且希望全程可视化的场景，通过文本生成与快捷操作结合完成。

1、在WPS表格A列列出全部员工姓名，B列输入公式：="办公\"&A1，向下填充。

2、复制B列全部结果，在资源管理器中打开目标父级文件夹（如D:\），空白处右键→“新建”→“文件夹”。

3、立即按F2重命名第一个文件夹，粘贴B1内容，回车确认；重复此操作，依次为每个B列值创建对应文件夹。

4、为提升效率，可先在WPS中将B列复制为纯文本（避免格式干扰），再使用资源管理器地址栏输入shell:sendto打开发送到菜单，配合“新建文本文档”快速占位后重命名。