批量生成文件夹

张雄友

批量生成文件夹，根据A列名称批量生成文件夹，生成的每个文件夹的查看方式是“列表”状态而且打开文件夹时是最大化状态。

1. Sub 批量生成文件夹()
   
2. '生是生成了，但是生成的每个文件夹的查看方式不是“列表”状态而且打开文件夹时不是最大化状态！！！！！！！！！！！！
   
3. Dim i&, MyPath$
   
4. i = 1 '从第一个单元格开始，初始化值。
   
5. With Application.FileDialog(msoFileDialogFolderPicker)
   
6. .InitialFileName = ThisWorkbook.Path & ""
   
7. If .Show = False Then Exit Sub
   
8. MyPath = .SelectedItems(1) & ""
   
9. End With
   
10. Do Until Cells(i, "A") = ""
    
11. MkDir MyPath & "" & Cells(i, "A").Value
    
12. i = i + 1
    
13. Loop
    
14. End Sub
    

复制代码

张雄友

1. Sub 批量生成文件夹()
   
2. 
   
3. '生是生成了，但是生成的每个文件夹的查看方式不是“列表”状态而且打开文件夹时不是最大化状态！！！！！！！！！！！！
   
4. Dim i&, MyPath$
   
5. i = 1 '从第一个单元格开始，初始化值。
   
6. With Application.FileDialog(msoFileDialogFolderPicker)
   
7.     .InitialFileName = ThisWorkbook.Path & ""
   
8.     If .Show = False Then Exit Sub
   
9.     MyPath = .SelectedItems(1) & ""
   
10. End With
    
11. Do Until Cells(i, "A") = ""
    
12.     MkDir MyPath & "" & Cells(i, "A").Value
    
13.     i = i + 1
    
14. Loop
    
15. End Sub
    

复制代码

张雄友

而且不能忽略空值，如A2，A3，是空值时，A4单元格  （建设部   ）  无法生成文件夹出来。

张雄友

自己顶一下。

张雄友

请帮助！！…