[已解决]批量新建文件夹，并且以表单中的内容命名

billyzhang0609

各位老师

      请问，如何将附件中A列的内容作为文件夹的名字，批量新建文件夹在C：\AAA\   ?
   
    A列内容随机，有个单元格，就新建以相应单元格内容命名的文件夹。

   

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-10 14:20

1. Sub 新建文件夹()
   
2.     Dim myrow As Integer
   
3.     Dim i As Integer
   
4.     myrow = ThisWorkbook.Sheets(1).Cells(65536, 1).End(xlUp).Row
   
5.     If Dir("C:\AAA", vbDirectory) <> "" Then
   
6.         GoTo 100
   
7.     Else
   
8. '        MsgBox "文件夹不存在!,系统将创建一个名为AAA的文件夹"
   
9.         MkDir "C:\AAA"
   
10.     End If
    
11. 100:
    
12.     With ThisWorkbook.Sheets(1)
    
13.         For i = 1 To myrow
    
14.             MkDir "C:\AAA" & "" & .Cells(i, 1).Value
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

跳转到最佳答案楼层

冠军欧洲2010

测试的时候，我放到D盘了， 你可以改到C盘就可以了。

冥王

1. Sub 新建文件夹()
   
2.     Dim myrow As Integer
   
3.     Dim i As Integer
   
4.     myrow = ThisWorkbook.Sheets(1).Cells(65536, 1).End(xlUp).Row
   
5.     If Dir("C:\AAA", vbDirectory) <> "" Then
   
6.         GoTo 100
   
7.     Else
   
8. '        MsgBox "文件夹不存在!,系统将创建一个名为AAA的文件夹"
   
9.         MkDir "C:\AAA"
   
10.     End If
    
11. 100:
    
12.     With ThisWorkbook.Sheets(1)
    
13.         For i = 1 To myrow
    
14.             MkDir "C:\AAA" & "" & .Cells(i, 1).Value
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

zhp3

billyzhang0609

三个答案都很好啊！！！3楼老师的答案最直观，谢谢三位老师。统统下载了！

billyzhang0609

zhp3 发表于 2014-4-10 14:24

老师，这也可以啊！学习了！

810126769

冥王 发表于 2014-4-10 14:20

如果文件夹已经存在会提示路径访问出错

810126769

冠军欧洲2010 发表于 2014-4-10 14:17
测试的时候，我放到D盘了， 你可以改到C盘就可以了。

很好用，只是如果文件夹已经存在就会提示路径访问出错，有什么办法在如果有该文件夹，先删除该文件夹再创建呢？

冥王

810126769 发表于 2014-4-10 15:47
如果文件夹已经存在会提示路径访问出错

嗯   是考虑不周   应该加一下判断如果文件夹存在 是覆盖还是跳过新建下一个

lovexcel

学习了