[已解决]EXCEL目录

air05

我有个文件夹A里面存有20个文件夹，我想做个表格目录显示A文件夹里所有的文件夹名称，只要A文件夹中新增文件夹，EXCEL目录就会自动更新

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-4-30 21:07

1. Sub 搜索文件夹()
   
2.     Dim Arr1(), MyPath, MyName, I
   
3.     MyPath = "D:\A"   '设置查找路径
   
4.     MyName = Dir(MyPath, vbDirectory)    '查找目录
   
5.     Do While MyName <> ""
   
6.         If MyName <> "." And MyName <> ".." Then
   
7.             I = I + 1
   
8.             ReDim Preserve Arr1(1 To 1, 1 To I)
   
9.             Arr1(1, I) = MyName
   
10.         End If
    
11.         MyName = Dir    '继续遍历寻找
    
12.     Loop
    
13.     [A2].Resize(I, 1) = Application.Transpose(Arr1)    '显示在A2开始往下的单元格
    
14. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Sub 搜索文件夹()
   
2.     Dim Arr1(), MyPath, MyName, I
   
3.     MyPath = "D:\A"   '设置查找路径
   
4.     MyName = Dir(MyPath, vbDirectory)    '查找目录
   
5.     Do While MyName <> ""
   
6.         If MyName <> "." And MyName <> ".." Then
   
7.             I = I + 1
   
8.             ReDim Preserve Arr1(1 To 1, 1 To I)
   
9.             Arr1(1, I) = MyName
   
10.         End If
    
11.         MyName = Dir    '继续遍历寻找
    
12.     Loop
    
13.     [A2].Resize(I, 1) = Application.Transpose(Arr1)    '显示在A2开始往下的单元格
    
14. End Sub

复制代码

air05

如果不用VBA可以做用函数能做到吗