如何根据要求复制文件到新文件夹

千折百回

基本信息表中编号是唯一的标识

各部门可能会有同名，但所有资料按照编号+资料名称编号
资料不仅会有图片格式还会有pdf、word等

如何实现，提取资料清单中标注1的资料复制到打包文件夹

刀羊

帮你移到VBA版。

千折百回

因提出问题一直无人解答，研究几天后，只能通过间接的方式实现，该方式对文件格式要求较高，取消文件后缀就无法运行，请了解vba的大神帮助修改下代码，可以模糊查询并复制

附VBA代码
Sub CopyFiles()
    Dim a$(), b$(), n&, i%, sPath1$, sPath2$
    Dim fso1 As Object, dd As New Bl
    Set fso1 = CreateObject("Scripting.FileSystemObject")
    sPath1 = ThisWorkbook.Path & "\天职国际员工信息\"
    sPath2 = ThisWorkbook.Path & "\123\"
    dd.fso sPath1, a, b, n
    arr = Range("b2:b" & Range("a" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(arr)
        For j = 1 To n
            If arr(i, 1) = b(j) Then
                If Not fso1.FileExists(sPath2 & arr(i, 1)) Then
                    fso1.CopyFile a(j), sPath2
                    Exit For
                End If
            End If
        Next
    Next
    MsgBox "复制完毕！"
End Sub