[已解决]以单元格内容新建文件夹

26759761@qq.com

见附件,谢谢

最佳答案

月排行榜 / 总排行榜

冠军欧洲2010

2014-8-4 13:27

1. 
   
2. Sub A()
   
3.     Dim K As Integer, I As Integer
   
4.     I = 2
   
5.     If Len((VBA.Dir("F:\品房数据", vbDirectory))) = 0 Then VBA.MkDir ("F:\品房数据")
   
6.     For K = 2 To 8
   
7.         VBA.MkDir ("F:\品房数据" & Cells(K, "I").Value)
   
8.         Do While Cells(I, 1) = Cells(K, "I")
   
9.             VBA.MkDir ("F:\品房数据" & Cells(K, "I") & "" & Cells(I, 2))
   
10.             I = I + 1
    
11.         Loop
    
12.     Next
    
13. End Sub
    

复制代码

来凑热闹。

跳转到最佳答案楼层

滴答滴

调用shell命令 mkdir ……

蝶·舞

1.     On Error Resume Next
   
2.     MkDir "F:\品房数据"
   
3.     For i = 2 To 8
   
4.         MkDir "F:\品房数据" & Cells(i, "I")
   
5.     Next

复制代码

冠军欧洲2010

1. 
   
2. Sub A()
   
3.     Dim K As Integer, I As Integer
   
4.     I = 2
   
5.     If Len((VBA.Dir("F:\品房数据", vbDirectory))) = 0 Then VBA.MkDir ("F:\品房数据")
   
6.     For K = 2 To 8
   
7.         VBA.MkDir ("F:\品房数据" & Cells(K, "I").Value)
   
8.         Do While Cells(I, 1) = Cells(K, "I")
   
9.             VBA.MkDir ("F:\品房数据" & Cells(K, "I") & "" & Cells(I, 2))
   
10.             I = I + 1
    
11.         Loop
    
12.     Next
    
13. End Sub
    

复制代码

来凑热闹。

易安1

小白没有F盘就已E盘测试吧
小白也不会VBA 就用BAT 测试一下吧{:30:}

易安1

值得注意的是名称中有空格将出错 这点跟代码中名称中不可以有空格是一个道理

26759761@qq.com

冠军欧洲2010 发表于 2014-8-4 13:27
来凑热闹。

不好意思,中午没想到,能不能在B列楼盘名字上  能不能再产生一个超链接,点下就能进到对应的文件夹去.谢谢,不行就算了

冠军欧洲2010

直接循环了。

1. Sub A()
   
2.     Dim K
   
3.     For K = 2 To 193
   
4.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(K, 2), Address:="F:\品房数据" & Cells(K, 1) & "" & Cells(K, 2)
   
5.     Next
   
6. End Sub

复制代码