如何在excel中批量建文件夹

简单的VBS类归脚本即可.

将下面代码复制到记事本中,另存为VBS格式文件(不是文本文件)

'修改下面D:\为创建文件夹路径,保存后双击等待吧,需要很长一段时间.
'需要创建387420489个文件夹,一旦创建,你删除也需要时间……^_^
Lq_Cpath="D:\"

'以下部分不需要修改
Sub fso_folder_new(fso_folder_new_name)
on error resume next
Set lq_fso=Createobject("Scripting.FilesystemObject")
if not lq_fso.FolderExists(""&fso_folder_new_name&"") then
lq_fso.CreateFolder ""&fso_folder_new_name&""
end if
Set lq_fso=Nothing
End Sub

Function Lq_Cfolder(Lq_Num,Lq_Path)
if not isnumeric(Lq_Num) then
Lq_Num=1
Else
Lq_Num=Clng(Lq_Num)
End If
'修改下面的10为想要的深度+1
If Lq_Num=10 then
Exit Function
end if
'修改下面的9为想要的深度
For i=1 to 9
fso_folder_new Lq_Path&i
Lq_Cfolder Lq_Num+1,Lq_Path&i&"\"
Next
End Function
'执行操作
Lq_Cfolder 1,LQ_CPATH

Excel如何快速新建多个文件夹？这个视频告诉你！办公软件实用技巧。

首先把文字转我横向排版，复制下来，然后新建一个文本文档，输入md和一个空格，再把文字粘贴进去，文件另存为，后缀名修改成bat，编码改成ansi，保存在双击刚才的文件，即可完成。