我想在excel中通过单元格的内容在指定文件夹中查找包含此内容的文件并将文件复制到另一个文件夹中

我想在excel中通过单元格的内容在指定文件夹中查找包含此内容的文件并将文件复制到另一个文件夹中？例如A1单元格内容是ABC，我想在指定的文件夹中（E:\NewFolder\)查找文件名包含ABC的文件，查找到后将文件名包含ABC的文件复制到另一个文件夹（E:\NewFolder\存在）,并且将文件原始位置超链接到B列，谢谢！（不懂VBA，要详细点了，谢谢）我给你做好了，这是代码，具体用法是打开你的VBA编辑器，然后插入新模块后，把下面代码复制过去：FunctionGetFilePos(sAsString)AsStringDimfsAsFileSearchDimiAsIntegerDimfname,fname1AsStringSetfs=Application.FileSearchfs.LookIn=E:\NewFolder\fs.Filename=*&s&*.*fs.Execute'Fori=1Tofs.FoundFiles.Count'如果查找到多个文件是咋办'Next'现在先暂且取第一个文件吧Iffs.FoundFiles.Count0Thenfname=fs.FoundFiles(1)fname1=Right(fname,Len(fname)-Len(E:\NewFolder\))'去掉文件的路径fname1=E:\NewFolder\存在\&fname1CallFileCopy(fname,fname1)GetFilePos=fname1EndIfEndFunction用的时候，看图吧在B1单元格输入公式：=GetFilePos(A1)即可，然后往下拖动复制这是代码的截图这是测试文件下面是excel文件