从列表中查找文件夹中的文件并粘贴路径

Question

我目前正在使用以下字符串在文件夹中查找文件，但我想使其从名称列表中自动搜索。 实际的代码是：

    Sub Find_Files()
Dim fldr As FileDialog
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
fldr.Show
f = fldr.SelectedItems(1)
f = f & "\"
NumRows = Range("B14", Range("B14").End(xlDown)).Rows.Count
For i = 14 To NumRows
sn = Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & f & Active.Cells & """ /s /a /b").stdout.readall, vbCrLf)
Cells(i, 2).Offset(0, 1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
Next i
ext:
End Sub

我试图将具有“ ibox”代码的旧版本更改为“ For i = 14 to NumRows”循环，但似乎不起作用。 有谁对它的工作提出建议？（我是vba编码的新手）

先谢谢了， 里卡多