Question

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

例如A1单元格内容是ABC，我想在指定的文件夹中（E:\New Folder\)查找文件名包含ABC的文件，查找到后将文件名包含ABC的文件复制到另一个文件夹（E:\New Folder\存在）,并且将文件原始位置超链接到B列，谢谢！（不懂VBA，要详细点了，谢谢）
是超链接的意思，运行vba后，这里要显示查找到文件的location

Answer 1

你图片中的B1单元格的D:\Personal是啥意思

追问

是超链接的意思，运行vba后，这里要显示查找到文件的location

追答

如果有多个文件名中包含ABC咋办，取第一个吗？

追问

还是简单一点吧，文件名必须是ABC，不仅在包含，是必须。 谢谢你

追答

我给你做好了，这是代码，具体用法是打开你的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文件

 

追问

我用了你的excel文件做实验不太会用：在模块1看到代码 然后点绿箭头运行就行了吗？

追答

不是那样的,我上面已经给你说了怎么用了,在B1单元格输入公式：=GetFilePos(A1)即可，然后往下拖动复制

追问

我还要修改，因为路径要改，你有qq吗？

追答

有,我的QQ号:314088595