总文件
子文件
子文件夹下的子文件夹内容为图片
结果：求01a\01\*jpg
相关文件及excel在附件
excel 表格行与列都会随时间增减，
在网上找了好久，只看到统计某文件下图片的VBA
Sub Macro1()
Dim Fso As Object, File As Object, m&
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each File In Fso.GetFolder(ThisWorkbook.Path & "\图库").Files
If File.Name Like "*.jpg" Then m = m + 1
Next
[c2] = m
Set File = Nothing
Set Fso = Nothing
End Sub
确实有效，但是不知道如何改为适合的
在此谢过 1.图库.rar(17.12 KB, 下载次数: 192)
