fso提取汇总文件夹及其下的文件名及内容（递归操作字典汇总）

Albert128

liulang0808 发表于 2017-4-10 08:26
建议楼主的自己先尝试编写下代码，然后将遇到的问题，发上来吧

1. Public mysht, S(1 To 71, 1 To 12)
   
2. Sub 合并()
   
3.     Sheet1.Range("B3:M10,R3:R10").ClearContents
   
4.     Sheet2.Range("B2:M72,R2:R72").ClearContents
   
5.     Sheet3.Range("B2:M72,R2:R72").ClearContents
   
6.     For Each mysht In Array("Selling", "Admin")
   
7.         Getfd (ThisWorkbook.Path) '当前代码文件所在的路径
   
8.         ThisWorkbook.Sheets(mysht).[B2:M72] = S
   
9.     Next mysht
   
10. End Sub
    
11. 
    
12. Sub Getfd(ByVal Pth)
    
13.     Set Fso = CreateObject("Scripting.filesystemobject")
    
14.     Set FF = Fso.getfolder(Pth)
    
15.         For Each f In FF.Files
    
16.             If InStr(Split(f.Name, ".")(UBound(Split(f.Name, "."))), "xl") > 0 Then
    
17.                 If f.Name <> ThisWorkbook.Name Then
    
18.                     Set wb = Workbooks.Open(f): Set Bname = ActiveWorkbook.Sheets(mysht)'由于<span style="background-color: rgb(255, 255, 255);">团购报表里没有工作表“</span>Admin”提示下标越界“
    
19.                     If Not Bname Is Nothing Then
    
20.                         Arr = ActiveWorkbook.Sheets(mysht).Range("B2:M72")
    
21.                         For i = 1 To 71 Step 2
    
22.                             For L = 1 To 12
    
23.                                 S(i, L) = S(i, L) + Arr(i, L)
    
24.                             Next L
    
25.                         Next i
    
26.                     
    
27.                     End If
    
28.               wb.Close False  
    
29.                 End If
    
30.                
    
31.             End If
    
32.             
    
33.         Next f
    
34. End Sub

复制代码

请大师指教，怎么解决下标越界，谢谢！

liulang0808

Albert128 发表于 2017-4-10 21:42
请大师指教，怎么解决下标越界，谢谢！

看了之前的附件，
因为新打开的文件里没有admin这张表，所有要报错的
在报错的时候，选择调试，看看各个参数，就知道了

luxf1624

非常好的文件夹遍历递归学习资料！谢谢liulang0808的分享！

冰山之剑

学习了自定义过程等基础知识

legendchow

真的很好！需要好好学习！谢谢分享！

chengshanming

不错，路过，顶一下！

chengshanming

liulang0808 发表于 2014-12-17 00:05
应用扩展一
遍历当前文件夹及子文件夹，查找包含指定字符串的文件名并执拷贝到指定文件夹
将文件名包含D ...

大侠好！

whqspeng

收藏学习，方便随时查找

ouou44

马克住，特别棒

Tomchenxun

认真学习学习