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

hongshan2019

占个位

糖糖99233

留个爪爪备用

FIFAWORLDCUP

占座学习一下

sulli112

老师，我想问一下，像我这种列标题比较多的，要怎么修改呢，我试过用您那段代码，但是弄出来对不上，想根据实际情况修改，也不知道重哪里修改麻烦老师您帮忙看看，谢谢

liulang0808

sulli112 发表于 2020-9-28 10:40
老师，我想问一下，像我这种列标题比较多的，要怎么修改呢，我试过用您那段代码，但是弄出来对不上，想根据 ...

Dim sh
Sub 按钮1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    Set sh = ActiveSheet
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Offset(1).ClearContents
    Call Getfd(ThisWorkbook.Path, fso) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
    Application.ScreenUpdating = True
End Sub
Sub Getfd(pth, fso)
   
    Set ff = fso.getfolder(pth)
    For Each f In ff.Files
        If InStr(f.Name, "遍历当前文件夹") = 0 Then
            With Workbooks.Open(f)
                r = sh.Cells(Rows.Count, 1).End(3).Offset(1).Row
                .Sheets(1).[a1].CurrentRegion.Offset(1).Copy sh.Cells(Rows.Count, 1).End(3).Offset(1)
                .Close False
            End With
        End If
    Next f
    For Each fd In ff.subfolders
        Call Getfd(fd, fso)
    Next fd
End Sub

jwjnh001

liulang0808 发表于 2014-11-15 09:54
五、汇总当前文件夹及子文件夹下所有excel文件内容
增加了红色字体部分
Public d

以上代码如果是 .xlsm文件类型，则会出现错误。

算了算了算是

总结的好详细哦

wangbadan123456

liulang0808 发表于 2014-11-15 11:58
ThisWorkbook.Sheets(1).[a2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
ThisWorkbook.Shee ...

学到了

安平LH

真是大有帮助

ph378

收藏了