假设你是一名vba程序员现在有个需求要你在指定的文件夹及其子文件夹中、按excel中的产品名称列表批量查找图片并将它们复制粘贴到一个新建的文件夹里。请给出详细的vba代码

Sub SearchAndCopyImages() '声明变量 Dim productFolder As String '产品文件夹路径 Dim productImage As String '产品图片路径 Dim newFolder As String '新建文件夹路径 Dim productName As String '产品名称 Dim i As Integer '计数器 Dim j As Integer '计数器 Dim k As Integer '计数器

'设置产品文件夹路径
productFolder = "C:\Products"

'设置新建文件夹路径
newFolder = "C:\NewFolder"

'打开Excel文件
Workbooks.Open ("C:\ProductList.xlsx")

'循环遍历Excel中的产品名称列表
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    '获取产品名称
    productName = Range("A" & i).Value
    
    '在产品文件夹及其子文件夹中查找图片
    productImage = Dir(productFolder & "\" & productName & "*.jpg")
    Do While productImage <> ""
        '复制图片到新建文件夹
        FileCopy productFolder & "\" & productImage, newFolder & "\" & productName & "_" & j & ".jpg"
        j = j + 1 '计数器加1
        '继续查找下一张图片
        productImage = Dir()
    Loop
Next i

'关闭Excel文件
Workbooks("ProductList.xlsx").Close SaveChanges:=False

'提示操作完成
MsgBox "操作完成！"

End Su