打开excel后自动汇总文件数量

dengchaoting

求大神赐教：打开excel后自动汇总文件数量

根据A3:A10 的名称，去找到对应的文件夹，再读取文件夹中的文件数量，并且将文件数量放在对应的B3:B10中
数据包含A列到R列，，谢谢大神！！
附件已经附上！

dengchaoting

大神，快来啊！

dengchaoting

朱荣兴 发表于 2019-9-18 20:09
Sub sl() '''QQ:705664849
With Sheets("全生命周期流程")
    For I = 3 To 10

感谢大神，已经成功处理！！！！！！！

dengchaoting

朱荣兴 发表于 2019-9-18 20:09
Sub sl() '''QQ:705664849
With Sheets("全生命周期流程")
    For I = 3 To 10

大神，请教一下，我在刷新前加入了先删除在更新，但想请教一下怎么让这个代码在多列都能用，目前只有B列有效，我希望的是在（B、D、F、H、J、L、N、P、R）列都生效，没找到原因，还请大神赐教！
-----------------------------------------------------------------

-------------------------------------------------------------------
Sub sl()
With Sheets("全生命周期流程")
Union(Range("B3:B10"), Range("B12:B18"), Range("D3:D10"), Range("D12:D18"), Range("F3:F10"), Range("F12:F18"), Range("H3:H10"), Range("H12:H18"), Range("J3:J10"), Range("J12:J18"), Range("L3:L10"), Range("L12:L18"), Range("N3:N10"), Range("N12:N18"), Range("P3:P10"), Range("P12:P18"), Range("R3:R10"), Range("R12:R18")).ClearContents
    For I = 3 To 18
        If Dir(ThisWorkbook.Path & "\文件列表清单\" & .Cells(I, 1) & "\") <> "" Then
            m = 0
            f = Dir(ThisWorkbook.Path & "\文件列表清单\" & .Cells(I, 1) & "\*.*")
            Do While f <> ""
                m = m + 1
            f = Dir
            Loop
            .Cells(I, 2) = m
        End If
    Next I
End With
End Sub