|
各位大侠,我想问一下如何统计一个文件夹中满足条件的文件夹或者文件的个数,比如附件里,如何按照excel表中xh字段每个单元格的内容统计文件夹zy下文件名称包含该内容的文件个数,并把统计结果存放到对应的个数字段。谢谢!
- Dim w(1 To 10000), s%
- Sub test()
- Erase w: s = 0
- mypath = ThisWorkbook.Path & ""
- zdir mypath
- arr = [a1].CurrentRegion
- For i = 2 To UBound(arr)
- For k = 1 To s
- f = w(k)
- If InStr(f, arr(i, 1)) > 0 Then arr(i, 2) = arr(i, 2) + 1
- Next
- Next
- [a1].CurrentRegion = arr
- End Sub
- Sub zdir(p) '递归获得本文件夹及所有子文件夹内的文件名及子文件夹名
- Set fs = CreateObject("scripting.filesystemobject")
- For Each f In fs.GetFolder(p).Files
- If f <> ThisWorkbook.FullName Then s = s + 1: w(s) = f
- Next
- For Each m In fs.GetFolder(p).SubFolders
- s = s + 1: w(s) = m
- zdir m
- Next
- End Sub
复制代码
|
|