|
非常感谢,使用该教程改了一段可以提取文件夹下子文件夹下的jpg类型文件写入xls表格
'遍历当前文件夹内文件名
Rem 如果不需要提取本代码文件名,可以增加if语句 if f.name<> thisworkbook.name then.....
Sub Getfd(ByVal pth)
Application.ScreenUpdating = False
Set fso = CreateObject("scripting.filesystemobject")
Set wjj = fso.getfolder(pth) '获取文件夹路径
Range("a:a").ClearContents
Range("b:b").ClearContents
k = 1
For Each zwjj In wjj.subfolders '遍历子文件夹
For Each wj In zwjj.Files
extname = Split(wj.Name, ".")(UBound(Split(wj.Name, "."))) '获取文件扩展名
If UCase(extname) = "JPG" Then
Cells(k, 1) = wj.Name
Cells(k, 2) = zwjj.Name
k = k + 1
End If
Next wj
Next zwjj
Application.ScreenUpdating = True
End Sub |
|