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

例如A1单元格内容是ABC，我想在指定的文件夹中（E:\\New Folder\\)查找文件名包含ABC的文件，查找到后将文件名包含ABC的文件复制到另一个文件夹（E:\\New Folder\存在）,并且将文件原始位置超链接到B列，谢谢！

（不懂VBA，要详细点了，谢谢）

我给你做好了，这是代码，具体用法是打开你的VBA编辑器，然后插入新模块后，把下面代码复制过去：

Function GetFilePos(s As String) As String

Dim fs As FileSearch

Dim i As Integer

Dim fname, fname1 As String

Set fs = Application.FileSearch

fs.LookIn = "E:\\New Folder\\"

fs.Filename = "*" & s & "*.*"

fs.Execute

'For i = 1 To fs.FoundFiles.Count '如果查找到多个文件是咋办

'Next

'现在先暂且取第一个文件吧

If fs.FoundFiles.Count > 0 Then

fname = fs.FoundFiles(1)

fname1 = Right(fname, Len(fname) - Len("E:\\New Folder\\")) '去掉文件的路径

fname1 = "E:\\New Folder\存在\\" & fname1

Call FileCopy(fname, fname1)

GetFilePos = fname1

End If

End Function

用的时候，看图吧

在B1单元格输入公式：=GetFilePos(A1)即可，然后往下拖动复制

这是代码的截图

这是测试文件

下面是excel文件