excel创建多级文件夹
发布网友
共2个回答
热心网友
每一行逐层创建文件夹就可以了，假设数据如图所示，可使用下面的代码批量创建。
Sub CreateFolder()Dim iRow As Long
Dim iPath As String
For iRow = 1 To Range("A" & Rows.Count).End(xlUp).Row
iPath = Cells(iRow, 1).Text & "\" & Cells(iRow, 2).Text
If Dir(iPath, vbDirectory) = "" Then MkDir iPath
iPath = Cells(iRow, 1).Text & "\" & Cells(iRow, 2).Text & "\" & Cells(iRow, 3).Text
If Dir(iPath, vbDirectory) = "" Then MkDir iPath
Next iRow
MsgBox "Complete!"
End Sub
运行效果：
追问非常感谢，请问这个代码怎么用？在哪里用？追答
Alt+F11打开VBE编辑器，插入--模块，复制粘贴代码。
返回工作表界面，Alt+F8运行CreateFolder宏，或者插入图形后，右键图形指定宏，单击运行。
详情可以参考附件。
热心网友
你自己都说完了还不会做吗.一级右键重命名"朝阳----点开它右键新建文件夹---重命名北苑下面一样的操作追问您说的是手工操作？？
