如何按表格内容顺序生成以其内容命名的文件夹

来源：百度知道 编辑：UC知道 时间：2024/07/08 19:37:03
我有一个人名表，有好多人（1000+），我想按照表上名字顺序生成文件夹，一个名字命名一个文件夹，一个一个来好麻烦，向高手请教有没有简单办法？？？？急！！！！！！！！！！！！！！
不会用dos啊，那个在windows里可以吗？这位朋友能不能说下具体操作啊，比如怎么改后缀，还有a、b列合并不就清除内容了吗？本人菜鸟不好意思啊呵呵

会DOS吗？用DOS的批处理就可以实现
将人名放在EXCELB列里，前面A列，输入一个MD[空格]
合并A、B列到C列
复制C列
粘贴到一个文件中
此文件后缀改为BAT类型
双击运行，OK 、
合并是用EXCEL的&功能，比如在C1中输入=a1&b1,就是合并
粘贴后得到的文件可以放在一个文本文件中
修改后缀时，我们需要打开我的电脑-工具-文件夹选项、查看、隐藏已知文件类型的扩展名，取消复选，确认就可以了
我们再看到文件时，就带后缀了，更名时可以改后缀了
最好是先做几个简单试试，没问题了再建你说的1K多个
如果不会，我帮你

那你会不会用宏？比如，你的人名放在A列，从A1到A2000，你用这代码

Public Sub aa()
For i = 1 To 2000
MkDir "D:/" & Cells(i, 1)
Next i
End Sub

以上是假设保存在D盘。总之原理是这样，可根据你自已的实际需要进行修正。请理解原理，我只告诉你原理，不告诉结果。

Sub yy()
For i = 1 To Range("A65535").End(xlUp).Row

If Dir("c:\" & Cells(i, 1).Value, vbDirectory) = "" Then
MkDir "c:\" & Cells(i, 1).Value
Else
s = s & Cells(i, 1).Value & Chr(10)
End If
Next i
If s <> "" Then
MsgBox "以下文件夹名已经存在,无法建立" & Chr(10) & s
End If

End Sub
以上用宏的方法。