|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
非常感谢,使用该教程改了一段可以提取文件夹下子文件夹下的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 |
|