如何使用VBA遍历文件夹中的pdf文件，并进行复制粘贴到新的文件夹中

wangmin111

实际要匹配的资料很多很咋，还会有文件夹里还有文件夹的情况，由于附件只能上传2MB大小的文件，就只选了几个上传，烦请各位老师看一下有没有可以解决的办法，非常感谢

ykcbf1100

复杂问题简单化，目前代码未考虑时间先后问题，这个后期手工甄别一下吧，应该不多。
附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.28
   
2.     Application.ScreenUpdating = False
   
3.     Dim fns As New Collection
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
6.     p = ThisWorkbook.Path & ""
   
7.     p1 = p & "资质"
   
8.     p2 = p & "待打印"
   
9.     If Not fso.FolderExists(p2) Then fso.CreateFolder p2
   
10.     getfiles fso, p1, fns
    
11.     With Sheets("Sheet1")
    
12.         r = .Cells(Rows.Count, 1).End(3).Row
    
13.         For i = 2 To r
    
14.             s = .Cells(i, 1).Value
    
15.             For Each k In fns
    
16.                 If InStr(k(0), s) Then
    
17.                     fso.CopyFile k(1), p2
    
18.                     .Cells(i, 3) = ""
    
19.                     Exit For
    
20.                 Else
    
21.                     .Cells(i, 3) = "未查询到结果"
    
22.                 End If
    
23.             Next
    
24.         Next
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub
    
29. 
    

复制代码